Use relative pathnames so handling 300's and 800's is identical.

diff --git a/v7/src/6001/6001.sf b/v7/src/6001/6001.sf
index 174a9f776389cdc702c6c848533c28f52ad9a2ab..b6fd1a891c47c0cb3ed10e00ebfc9df273bae715 100644 (file)
--- a/v7/src/6001/6001.sf
+++ b/v7/src/6001/6001.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.sf,v 1.2 1991/08/22 20:32:35 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.sf,v 1.3 1991/08/23 02:04:17 arthur Exp $
 
 Copyright (c) 1991 Massachusetts Institute of Technology
 
@@ -39,7 +39,7 @@ MIT in each case. |#
 
 ;; Guarantee that the package modeller is loaded.
 (if (not (name->package '(CROSS-REFERENCE)))
-    (with-working-directory-pathname "/scheme/800/cref"
+    (with-working-directory-pathname "../cref"
       (lambda ()
        (load "make"))))