diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp
index fc9b3022356b765ba59fd48d2c6c48211384049c..bb1569b15d51eec0292fc61c986570f27d0f6ece 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.17 2008/06/26 21:00:24 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.18 2008/08/31 13:07:06 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -208,7 +208,7 @@
     (cond ((not state) (copy-random-state *random-state*))
 	  ((random-state-p state) (copy-random-state state))
 	  ((eq state t)
-	   (make-random-object :state (init-random-state (generate-seed))))
+	   (make-random-object :state (init-random-state (generate-seed 627))))
 	  (t (error "Argument is not a RANDOM-STATE, T or NIL: ~S" state)))))
 
 (defun rand-mt19937-initializer ()