@@ -1131,11 +1131,11 @@
   ;;    (if (> numretries 0)(apply cdb:client-call serverdat qtype immediate (- numretries 1) params)))
    (let* ((client-sig  (server:get-client-signature))
 	  (query-sig   (message-digest-string (md5-primitive) (conc qtype immediate params)))
 	  (zdat        (db:obj->string (vector client-sig qtype immediate query-sig params (current-seconds)))) ;; (with-output-to-string (lambda ()(serialize params))))
 	  )
-     ;; (print "zdat=" zdat)
+     (debug:print-info 11 "zdat=" zdat)
      (let* (
 	  (res  #f)
 	  (rawdat      (server:client-send-receive serverdat zdat))
 	  (tmp         #f))
      (debug:print-info 11 "Sent " zdat ", received " rawdat)
@@ -1283,15 +1283,15 @@
 	 (qry-sig        (cdb:packet-get-query-sig item))
 	 (return-address (cdb:packet-get-client-sig item))
 	 (params         (cdb:packet-get-params item))
 	 (query          (let ((q (alist-ref stmt-key db:queries)))
 			   (if q (car q) #f))))
-    (debug:print-info 11 "Special queries/requests stmt-key=" stmt-key ", return-address=" return-address ", qrery=" query ", params=" params)
+    (debug:print-info 11 "Special queries/requests stmt-key=" stmt-key ", return-address=" return-address ", query=" query ", params=" params)
     (cond
      (query
       (apply sqlite3:execute db query params)
-      (server:reply pubsock return-address qry-sig #t #t))
+      (server:reply return-address qry-sig #t #t))
      ((member stmt-key db:special-queries)
       (debug:print-info 11 "Handling special statement " stmt-key)
       (case stmt-key
 	((immediate)
 	 (let ((proc      (car params))