Run merge-pathnames on the working directory of a subprocess.

diff --git a/v7/src/runtime/syncproc.scm b/v7/src/runtime/syncproc.scm
index 1ea3523dd9d3f1f633dbbb64ab07ded161cc3025..7df52ba18d81a27c107cb086e5802b446bf1710c 100644 (file)
--- a/v7/src/runtime/syncproc.scm
+++ b/v7/src/runtime/syncproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syncproc.scm,v 1.6 1999/02/01 03:28:31 cph Exp $
+$Id: syncproc.scm,v 1.7 1999/02/01 05:00:44 cph Exp $
 
 Copyright (c) 1999 Massachusetts Institute of Technology
 
@@ -69,8 +69,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                                (apply make-subprocess-context options)))
 \f
 (define (run-synchronous-subprocess-1 program arguments context)
-  (let* ((directory (subprocess-context/working-directory context))
-        (process #f))
+  (let ((directory
+        (let ((directory (subprocess-context/working-directory context)))
+          (and directory
+               (merge-pathnames directory))))
+       (process #f))
     (bind-condition-handler '()
        (lambda (condition)
          (if (and process (not (eq? process 'DELETED)))