Fix think-o.

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index 6f79a9afd5815aa6b5a964e76c6e9761350f67af..17c3ba171e3c757219dfff43f2641f0b57ca1262 100644 (file)
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.16 1997/11/12 22:38:03 cph Exp $
+$Id: ntprm.scm,v 1.17 1997/11/12 22:58:59 cph Exp $
 
 Copyright (c) 1992-97 Massachusetts Institute of Technology
 
@@ -314,7 +314,9 @@ MIT in each case. |#
                ;; Look for USER-NAME in same directory as current
                ;; user's home directory.
                (and homedir
-                    (trydir (merge-pathnames user-name homedir)))
+                    (trydir (merge-pathnames
+                             user-name
+                             (directory-pathname-as-file homedir))))
                ;; Look for USER-NAME in root directory of system
                ;; drive.  Failing that, use root directory itself.
                (let ((rootdir (%system-root-directory)))

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index c529c1f8304eeccf44f8917f3c1a1ae78d47dd0d..ec149688ffc029aef2e5b4c14fbbfb2773f22a14 100644 (file)
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.34 1997/11/12 08:39:57 cph Exp $
+$Id: os2prm.scm,v 1.35 1997/11/12 22:58:53 cph Exp $
 
 Copyright (c) 1994-97 Massachusetts Institute of Technology
 
@@ -273,7 +273,9 @@ MIT in each case. |#
                ;; Look for USER-NAME in same directory as current
                ;; user's home directory.
                (and homedir
-                    (trydir (merge-pathnames user-name homedir)))
+                    (trydir (merge-pathnames
+                             user-name
+                             (directory-pathname-as-file homedir))))
                ;; Look for USER-NAME in root directory of system
                ;; drive.  Failing that, use root directory itself.
                (let ((rootdir (%system-root-directory)))