From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 16 Sep 2013 19:16:32 +0000 (-0700)
Subject: standard-system-loader: typo
X-Git-Tag: release-9.2.0~110
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=866ac2bb9c26215a974f85c1fe3c6267750290b2;p=mit-scheme.git

standard-system-loader: typo
---

diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index e703034a5..c19922351 100644
--- 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