diff --git a/tools/mk-lisp b/tools/mk-lisp
index f69ca297281f406f72b3614e74da7d1040df8803..a2108c713e171712e7a258023cbd5a957060d45e 100755
--- a/tools/mk-lisp
+++ b/tools/mk-lisp
@@ -26,7 +26,7 @@ echo Building lisp.core dated $date from the \`\`$subdir\'\' subdir.
 (setf (search-list "lisp:")
       '("/afs/cs/project/clisp/new-compiler/@sys/$subdir/"))
 (in-package "USER")
-(load (open "lisp:code/worldload.lisp"))
+(load (open "lisp:tools/worldload.lisp"))
 $date
 $date
 $date