Index: /release/1.4/source/level-0/l0-numbers.lisp
===================================================================
--- /release/1.4/source/level-0/l0-numbers.lisp	(revision 13132)
+++ /release/1.4/source/level-0/l0-numbers.lisp	(revision 13133)
@@ -1787,5 +1787,7 @@
 (defun init-random-state-seeds ()
   (let* ((ticks (ldb (byte 32 0) (+ (mixup-hash-code (%current-tcr))
-                                    (primary-ip-interface-address)
+                                    (let* ((iface(primary-ip-interface)))
+                                      (or (and iface (ip-interface-addr iface))
+                                          0))
                                     (mixup-hash-code
                                      (logand (get-internal-real-time)