From 048e26092a3816fad3efcb71d50e78eaad6f32b0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Oct 1999 20:51:25 +0000
Subject: [PATCH] Set the working directory when loading this file.

---
 v7/src/rcs/make.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/rcs/make.scm b/v7/src/rcs/make.scm
index d3b3d82a1..63247a72d 100644
--- a/v7/src/rcs/make.scm
+++ b/v7/src/rcs/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.4 1999/01/02 06:11:34 cph Exp $
+$Id: make.scm,v 1.5 1999/10/26 20:51:25 cph Exp $
 
 Copyright (c) 1988, 1991, 1999 Massachusetts Institute of Technology
 
@@ -24,5 +24,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (declare (usual-integrations))
 
 (load-option 'hash-table)
-(package/system-loader "rcs" '() 'QUERY)
+(with-working-directory-pathname (directory-pathname (current-load-pathname))
+  (lambda ()
+    (package/system-loader "rcs" '() 'QUERY)))
 (add-identification! "RCS" 2 1)
\ No newline at end of file
-- 
2.25.1