diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index d12ed76ea1f2e232fb75d56d15055cfd30d464b9..1432f988e2e41cd59d49ca281e2229d219b11aee 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -16,8 +16,8 @@
 ;;;
 (setf (ext:search-list "code:") '("lisp:code/"))
 (setf (ext:search-list "c:") '("lisp:compiler/"))
-(setf (ext:search-list "mips:") '("c:mips/"))
-(setf (ext:search-list "assem:") '("lisp:assembly/"))
+(setf (ext:search-list "vm:") '("c:mips/" "c:generic/"))
+(setf (ext:search-list "assem:") '("lisp:assembly/mips/" "lisp:assembly/"))
 (setf (ext:search-list "hem:") '("lisp:hemlock/"))
 (setf (ext:search-list "clx:") '("lisp:clx/"))
 (setf (ext:search-list "pcl:") '("lisp:pcl/"))