From 0fe0eacb54b607e7835f2cb0321c8f6b52e3c7c2 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 23 Aug 1991 02:04:17 +0000
Subject: [PATCH] Use relative pathnames so handling 300's and 800's is
 identical.

---
 v7/src/6001/6001.sf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/6001/6001.sf b/v7/src/6001/6001.sf
index 174a9f776..b6fd1a891 100644
--- 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"))))
 
-- 
2.25.1