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}