@@ -383,18 +383,18 @@
   (debug:print 4 *default-log-port* "server-id:"  *server-id*)
   (let* ((cmd     ($ 'cmd))
 	 (paramsj ($ 'params))
          (key     ($ 'key))   
 	 (params  (db:string->obj paramsj transport: 'http))) ;; incoming data from the POST (or is it a GET?)
-    (debug:print 0 *default-log-port* "cmd:" cmd " with params " params "key " key)
+    (debug:print 4 *default-log-port* "cmd:" cmd " with params " params "key " key)
     (if (equal? key *server-id*)
       (begin
         (set! *api-process-request-count* (+ *api-process-request-count* 1))
  	(let* ((resdat  (api:execute-requests dbstruct (vector cmd params))) ;; process the request, resdat = #( flag result )
 	       (success (vector-ref resdat 0))
 	       (res     (vector-ref resdat 1))) ;; (vector flag payload), get the payload, ignore the flag (why?)
-	  (debug:print 0 *default-log-port* "res:" res)
+	  (debug:print 4 *default-log-port* "res:" res)
 	  (if (not success)
 	      (debug:print 0 *default-log-port* "ERROR: success flag is #f for " cmd " with params " params))
 	  (if (> *api-process-request-count* *max-api-process-requests*)
 	      (set! *max-api-process-requests* *api-process-request-count*))
 	  (set! *api-process-request-count* (- *api-process-request-count* 1))