From d098b5d348147e7f1f1f65f5051bcf72d89f12e6 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Mon, 28 Oct 1996 23:15:34 +0000
Subject: [PATCH] (load): Should call primitive-load-path, not primitive-load. 
 Oops.

---
 ice-9/boot-9.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index d44fed0d6..b529dc255 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -809,7 +809,7 @@
 
 (define (load name)
   (start-stack 'load-stack
-	       (primitive-load name #t read-sharp)))
+	       (primitive-load-path name #t read-sharp)))
 
 
 ;;; {Transcendental Functions}