(math-random-digit): Call math-init-random-base if var-RandSeed is nil.

diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el
index 24e3e5f182e0d9a2abea441504ebe8b000d12eea..262db6c9bda75cb106e633ac4edbe822c2124831 100644 (file)
--- a/lisp/calc/calc-comb.el
+++ b/lisp/calc/calc-comb.el
@@ -601,7 +601,7 @@
 ;;; Shuffling algorithm from Numerical Recipes, section 7.1.
 (defun math-random-digit ()
   (let (i math-random-last)
-    (or (eq var-RandSeed math-last-RandSeed)
+    (or (and var-RandSeed (eq var-RandSeed math-last-RandSeed))
        (math-init-random-base))
     (or math-random-cache
        (progn