1.1--- a/lisp/lib/skel/comp/org.lisp Sat Sep 21 18:18:14 2024 -0400
1.2+++ b/lisp/lib/skel/comp/org.lisp Sat Sep 21 22:58:22 2024 -0400
1.3@@ -18,7 +18,7 @@
1.4 (defmethod sk-load-component ((kind (eql :org)) (form pathname) &optional (path *default-pathname-defaults*))
1.5 (declare (ignore kind))
1.6 (let* ((name (namestring form))
1.7- (p (make-pathname :name name :type "org" :directory path))
1.8+ (p (make-pathname :name name :type "org" :directory (namestring path)))
1.9 (comp (sk-convert (org-parse :document p))))
1.10 (setf (sk-name comp) name)
1.11 (setf (sk-path comp) p)