diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp
index 16e6cea766bea5cfdce2b079e193f39bdaad6da4..6d101f3105728d5727653f15e0cab43765280922 100644
--- a/code/rand-mt19937.lisp
+++ b/code/rand-mt19937.lisp
@@ -6,7 +6,7 @@
 ;;; placed in the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.4 1997/12/16 02:55:16 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.5 1998/01/13 19:18:00 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -85,6 +85,11 @@
 					       #xffffffff))))
 	  (t (error "Argument is not a RANDOM-STATE, T or NIL: ~S" state)))))
 
+(pushnew #'(lambda ()
+	     (init-random-state (logand (get-universal-time) #xffffffff)
+				(random-state-state *random-state*)))
+	 ext:*after-save-initializations*)
+
 
 ;;;; Random entries:
 
diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp
index c6ffa1f93a5958bb1c9c411bacdc26a44f7ac17e..d0d761081f8ba6a6963ce60b722a9ba16588b5c3 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.39 1997/12/12 15:28:20 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.40 1998/01/13 19:18:02 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -105,10 +105,10 @@
     ,@(when (c:backend-featurep :gencgc)
 	'("target:code/scavhook"))
 
+    "target:code/save"
     ,@(if (c:backend-featurep :random-mt19937)
 	  '("target:code/rand-mt19937")
 	  '("target:code/rand"))
-    "target:code/save"
     "target:code/alieneval"
     "target:code/c-call"
     "target:code/sap"