@@ -256,11 +256,14 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; this client-side procedure makes rpc call to server and returns result
 ;;
 (define (rpc-transport:client-api-send-receive run-id serverdat cmd params #!key (numretries 3))
   (if (not (vector? serverdat))
-      (BB> "WHAT?? for run-id="run-id", serverdat="serverdat))
+      (begin
+        (BB> "WHAT?? for run-id="run-id", serverdat="serverdat)
+        (print-call-chain)
+        (exit 1)))
   (let* ((iface (rpc-transport:server-dat-get-iface serverdat))
          (port  (rpc-transport:server-dat-get-port serverdat))
          (res #f)
          (api-exec (rpc-transport:get-api-exec iface port))  
          (send-receive (lambda ()
@@ -392,11 +395,11 @@
     (set! db *inmemdb*)
 
     (debug:print 0 *default-log-port* "Server started on " host:port)
     
 
-    (thread-sleep! 4)
+    (thread-sleep! 5)
     (if (rpc-transport:self-test run-id ipaddrstr portnum)
         (debug:print 0 *default-log-port* "INFO: rpc self test passed!")
         (begin
           (debug:print 0 *default-log-port* "Error: rpc listener did not pass self test.  Shutting down.  On: " host:port)
           (exit)))