diff --git a/test/script-support.lisp b/test/script-support.lisp
index 788c2dcb69629289bc5f7d65ff6e9e559adf9cf4..3e33047d7d947938a6f6dcb9148dd83ebe3b3d1f 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -42,6 +42,10 @@ Some constraints:
 (proclaim '(optimize (speed #-gcl 2 #+gcl 1) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
                      #+(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*))
+
 (defparameter *trace-symbols*
   `(;; If you want to trace some stuff while debugging ASDF,
     ;; here's a nice place to say what.