diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 251ea7367..17b9fe75d 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2056,7 +2056,7 @@
 	((eq? (stack-id #t) 'repl-stack)
 	 (set! the-last-stack (make-stack #t save-stack eval)))
 	((eq? (stack-id #t) 'load-stack)
-	 (set! the-last-stack (make-stack #t save-stack primitive-load)))
+	 (set! the-last-stack (make-stack #t save-stack gsubr-apply)))
 	(else (set! the-last-stack #f)))
   (apply throw key args))