diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp
index 926dbc2c031d39f704bd2ca3e75116f3c19e7cd9..7771fbc7d8ce058693d22bfb01961529e8a2eb85 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.30.1.1 1994/10/24 19:08:02 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -123,7 +123,9 @@
     ,@(when (c:backend-featurep :pmax)
 	'("target:code/pmax-vm"))
     ,@(when (c:backend-featurep :sparc)
-	'("target:code/sparc-vm"))
+	(if (c:backend-featurep :svr4)
+	    '("target:code/sparc-svr4-vm")
+	    '("target:code/sparc-vm")))
     ,@(when (c:backend-featurep :rt)
 	'("target:code/rt-vm"))
     ,@(when (c:backend-featurep :hppa)
diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 8125a955157e6faf7d0353377f12788dc85148fb..c2deeb057ef94f3604872f012a7ea213c3a539ad 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.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/worldcom.lisp,v 1.66 1994/02/11 13:39:14 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.66.1.1 1994/10/24 19:09:51 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -143,7 +143,9 @@
 (when (c:backend-featurep :pmax)
   (comf "target:code/pmax-vm"))
 (when (c:backend-featurep :sparc)
-  (comf "target:code/sparc-vm"))
+  (if (c:backend-featurep :svr4)
+      (comf "target:code/sparc-svr4-vm")
+      (comf "target:code/sparc-vm")))
 (when (c:backend-featurep :rt)
   (comf "target:code/rt-vm"))
 (when (c:backend-featurep :hppa)