diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp
index 926dbc2c031d39f704bd2ca3e75116f3c19e7cd9..acb5a7ac54dcd3bb471110dc19203d8e6ddf926f 100644
--- a/tools/worldbuild.lisp
+++ b/tools/worldbuild.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.30 1993/08/31 13:46:57 hallgren Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.31 1994/05/22 20:29:15 hallgren Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -50,6 +50,11 @@
 	  "target:assembly/alpha/array.assem"
 	  "target:assembly/alpha/arith.assem"
 	  "target:assembly/alpha/alloc.assem"))
+    ,@(when (c:backend-featurep :sgi)
+	'("target:assembly/mips/assem-rtns.assem"
+	  "target:assembly/mips/array.assem"
+	  "target:assembly/mips/arith.assem"
+	  "target:assembly/mips/alloc.assem"))
 
     "target:code/type-boot"
     "target:code/fdefinition"
@@ -132,6 +137,8 @@
 	'("target:code/x86-vm"))
     ,@(when (c:backend-featurep :alpha)
 	'("target:code/alpha-vm"))
+    ,@(when (c:backend-featurep :sgi)
+	'("target:code/sgi-vm"))
 
     "target:code/signal"
     "target:code/interr"
diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index 6b65e52942d5e2838819c1422cc654904c3b6195..8883f0c1da12924be7e83a8808c44cc5b65224e3 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -6,7 +6,7 @@
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.76 1994/02/14 15:12:17 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.77 1994/05/22 20:25:56 hallgren Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -50,6 +50,7 @@
 	#+hppa "c:hppa/"
 	#+x86 "c:x86/"
 	#+alpha "c:alpha/"
+	#+sgi "c:mips/"
 	"c:generic/"))
 (setf (ext:search-list "assem:")
       '(#+pmax "target:assembly/mips/"
@@ -58,6 +59,7 @@
 	#+hppa "target:assembly/hppa/"
 	#+x86 "target:assembly/x86/"
 	#+alpha "target:assembly/alpha/"
+	#+sgi "c:mips/"
 	"target:assembly/"))
 (setf (ext:search-list "hem:") '("target:hemlock/"))
 (setf (ext:search-list "clx:") '("target:clx/"))