@@ -169,11 +169,12 @@
    exn
    (begin
      (print "Failed to bind to port " (rpc:default-server-port) ", trying next port")
      (server:find-free-port-and-open (+ port 1)))
    (rpc:default-server-port port)
-   (tcp-listen (rpc:default-server-port))))
+   (tcp-read-timeout 120000)
+   (tcp-listen (rpc:default-server-port) )))
 
 (define (server:client-setup)
   (if *runremote*
       (begin
 	(debug:print 0 "ERROR: Attempt to connect to server but already connected")