Index: testzmq/mockupclient.scm
==================================================================
--- testzmq/mockupclient.scm
+++ testzmq/mockupclient.scm
@@ -1,6 +1,6 @@
-(use zmq posix)
+(use zmq posix numbers)
 
 (define cname "Bob")
 (define runtime 10)
 (let ((args (argv)))
   (if (< (length args) 3)

Index: testzmq/mockupserver.scm
==================================================================
--- testzmq/mockupserver.scm
+++ testzmq/mockupserver.scm
@@ -1,11 +1,11 @@
 ;; pub/sub with envelope address
 ;; Note that if you don't insert a sleep, the server will crash with SIGPIPE as soon
 ;; as a client disconnects.  Also a remaining client may receive tons of
 ;; messages afterward.
 
-(use zmq srfi-18 sqlite3)
+(use zmq srfi-18 sqlite3 numbers)
 
 (define pub (make-socket 'pub))
 (define pull (make-socket 'pull))
 (define cname "server")
 (define total-db-accesses 0)

Index: testzmq/random.scm
==================================================================
--- testzmq/random.scm
+++ testzmq/random.scm
@@ -1,6 +1,6 @@
-(use posix)
+(use posix numbers)
 (randomize (inexact->exact (current-seconds)))
 
 (define low (string->number (cadr (argv))))
 (define hi  (string->number (caddr (argv))))