@@ -379,16 +379,20 @@
 ;;
 (define (api:process-request dbstruct $) ;; the $ is the request vars proc
   (set! *api-process-request-count* (+ *api-process-request-count* 1))
   (let* ((cmd     ($ 'cmd))
 	 (paramsj ($ 'params))
+         (key     ($ 'key)))   
 	 (params  (db:string->obj paramsj transport: 'http)) ;; incoming data from the POST (or is it a GET?)
-	 (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?)
-    (if (not success)
-	(debug:print 0 *default-log-port* "ERROR: success flag is #f for " cmd " with params " params))
+         (debug:print 0 *default-log-port* "cmd:" cmd " with params " params "key " key)
+         (if (equal? key *server-id**)
+           (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)
+             (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))
     ;; This can be here but needs controls to ensure it doesn't run more than every 4 seconds
     ;; (rmt:dat->json-str
@@ -396,7 +400,10 @@
     ;;          (list?   res)
     ;;          (number? res)
     ;;          (boolean? res))
     ;;      res 
     ;;      (list "ERROR, not string, list, number or boolean" 1 cmd params res)))))
-    (db:obj->string res transport: 'http)))
+    (db:obj->string res transport: 'http))
+    (begin
+       (debug:print 0 *default-log-port*   "Login failed server-id mismatch: " server-signature ", " *server-id*) 
+       (db:obj->string (conc "Login failed server-id mismatch: " server-signature ", " *server-id*) transport: 'http)))))