@@ -26,10 +26,11 @@
 
 (define (server:make-server-url hostport)
   (if (not hostport)
       #f
       (conc "tcp://" (car hostport) ":" (cadr hostport))))
+(define *time-to-exit* #f)
 
 (define (server:run hostn)
   (debug:print 0 "Attempting to start the server ...")
   (if (not *toppath*)(setup-for-run))
   (let* ((hostport      (open-run-close tasks:get-best-server tasks:open-db)) ;; do whe already have a server running?
@@ -82,10 +83,11 @@
 		   (res    #f))
 	      (debug:print-info 12 "server=> received params=" params)
 	      (set! res (cdb:cached-access params))
 	      (debug:print-info 12 "server=> processed res=" res)
 	      (send-message zmq-socket (db:obj->string res))
+	      (if *time-to-exit* (exit))
 	      (loop)))))))
 
 ;; run server:keep-running in a parallel thread to monitor that the db is being 
 ;; used and to shutdown after sometime if it is not.
 ;;