@@ -1120,20 +1120,22 @@
 	   (if (and (> (length remparam) 1)
 		    (eq? *toppath* (car remparam))
 		    (hash-table-ref/default *logged-in-clients* (cadr remparam) #f))
 	       #t
 	       #f))
+	  ((numclients)
+	   (length (hash-table-keys *logged-in-clients*)))
 	  ((flush)
 	   (db:write-cached-data)
 	   #t)
 	  ((immediate)
 	   (db:write-cached-data)
 	   (if (not (null? remparam))
 	       (apply (car remparam) (cdr remparam))
 	       "ERROR"))
 	  ((killserver)
-	   (db:write-cached-data)
+	   ;; (db:write-cached-data)
 	   (debug:print-info 0 "Remotely killed server on host " (get-host-name) " pid " (current-process-id))
 	   (set! *time-to-exit* #t)
 	   #t)
 	  ((set-verbosity)
 	   (set! *verbosity* (caddr params))
@@ -1179,10 +1181,13 @@
   (cdb:client-call zmq-socket 'login #t keyval signature))
 
 (define (cdb:logout zmq-socket keyval signature)
   (cdb:client-call zmq-socket 'logout #t keyval signature))
 
+(define (cdb:num-clients zmq-socket)
+  (cdb:client-call zmq-socket 'numclients #t))
+
 (define (cdb:test-set-status-state zmqsocket test-id status state msg)
   (if msg
       (cdb:client-call zmqsocket 'state-status-msg #t state status msg test-id)
       (cdb:client-call zmqsocket 'state-status #t state status test-id))) ;; run-id test-name item-path minutes cpuload diskfree tmpfree)