@@ -1147,10 +1147,12 @@
 	  ((set-verbosity)
 	   (set! *verbosity* (caddr params))
 	   *verbosity*)
 	  ((get-verbosity)
 	   *verbosity*)
+	  ((ping)
+	   'hi)
 	  (else
 	   (mutex-lock! *incoming-mutex*)
 	   (set! *last-db-access* (current-seconds))
 	   (set! *incoming-data* (cons 
 				  (vector qry-name
@@ -1176,10 +1178,11 @@
   (set! *client-non-blocking-mode* #t)
   (let ((res (proc)))
     (set! *client-non-blocking-mode* #f)
     res))
   
+;; params = 'target cached remparams
 (define (cdb:client-call zmq-socket . params)
   (debug:print-info 11 "cdb:client-call zmq-socket=" zmq-socket " params=" params)
   (let ((zdat (db:obj->string params)) ;; (with-output-to-string (lambda ()(serialize params))))
 	(res  #f))
     (send-message zmq-socket zdat)