diff --git a/test/script-support.lisp b/test/script-support.lisp
index 0e8a94cffce375b8847de86cc2e5103a5dd73a37..192e07ffe91221508c20f80cd450ca6a3c97dc06 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -44,8 +44,8 @@ Some constraints:
                      #+(or cmucl scl) (c::brevity 2) #+(or cmucl scl) (ext:inhibit-warnings 3)))
 
 #+clasp
-(unless (assoc "script" core:*load-hooks* :test #'equal)
-  (push (cons "script" 'core:load-source) core:*load-hooks*))
+(unless (assoc "script" si:*load-hooks* :test #'equal)
+  (push (cons "script" 'si:load-source) si:*load-hooks*))
 
 (defparameter *trace-symbols*
   `(;; If you want to trace some stuff while debugging ASDF,