diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp
index bb1569b15d51eec0292fc61c986570f27d0f6ece..e3647b565bb93262f447b09d0048f6a60b1f8d5c 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.18 2008/08/31 13:07:06 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.19 2008/09/02 13:38:03 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -66,7 +66,7 @@
       (logand (get-universal-time) #xffffffff)))
 
 ;; New initializer proposed by Takuji Nishimura and Makota Matsumoto.
-;; (See http://www.math.keio.ac.jp/~matumoto/MT2002/emt19937ar.html)
+;; (See http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/emt19937ar.html)
 ;;
 ;; This corrects a deficiency in the original initializer wherein the
 ;; MSB of the seed was not well represented in the state.
@@ -85,7 +85,7 @@
 ;;
 
 (defun int-init-random-state (&optional (seed 5489) state)
-  (declare (type (integer 1 #xffffffff) seed))
+  (declare (type (integer 0 #xffffffff) seed))
   (let ((state (or state (make-array 627 :element-type '(unsigned-byte 32)))))
     (declare (type (simple-array (unsigned-byte 32) (627)) state))
     (setf (aref state 0) 0)