Index: /branches/working-0711/ccl/level-0/l0-numbers.lisp
===================================================================
--- /branches/working-0711/ccl/level-0/l0-numbers.lisp	(revision 13146)
+++ /branches/working-0711/ccl/level-0/l0-numbers.lisp	(revision 13147)
@@ -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)