diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp
index 1c54036ed5d9faf618ec1fc564cacea718757c82..460914509a1988be9e7a434aea6e97dafd326b21 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.10 2003/02/11 13:52:46 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.11 2003/03/06 09:31:06 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -207,10 +207,11 @@
 	   (make-random-object :state (init-random-state (generate-seed))))
 	  (t (error "Argument is not a RANDOM-STATE, T or NIL: ~S" state)))))
 
-(pushnew #'(lambda ()
-	     (init-random-state (generate-seed)
-				(random-state-state *random-state*)))
-	 ext:*after-save-initializations*)
+(defun rand-mt19937-initializer ()
+  (init-random-state (generate-seed)
+                     (random-state-state *random-state*)))
+
+(pushnew 'rand-mt19937-initializer ext:*after-save-initializations*)
 
 
 ;;;; Random entries: