standard-system-loader: typo

diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index e703034a5cc76b5b6bf23ebe78b2d0f4a7943f74..c1992235139a3d5350beca3457a303ac595ec285 100644 (file)
--- a/src/runtime/option.scm
+++ b/src/runtime/option.scm
@@ -133,7 +133,7 @@ USA.
        (else value)))
 
 (define (standard-system-loader name)
-  (let ((here (merge-pathnames (directory-pathname name)
+  (let ((here (merge-pathnames (pathname-as-directory name)
                               (directory-pathname (current-load-pathname)))))
     (lambda ()
       (with-working-directory-pathname here (lambda () (load "make"))))))
\ No newline at end of file