Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -48,10 +48,12 @@
     login
     testmeta-get-record))
 
 ;; These are called by the server on recipt of /api calls
 ;;    - keep it simple, only return the actual result of the call, i.e. no meta info here
+;;
+;;    - returns #( flag result )
 ;;
 (define (api:execute-requests dbstruct cmd params)
   (let ((res
 	 (case (if (symbol? cmd) 
 		   cmd
@@ -145,11 +147,12 @@
 ;;
 (define (api:process-request dbstruct $) ;; the $ is the request vars proc
   (let* ((cmd     ($ 'cmd))
 	 (paramsj ($ 'params))
 	 (params  (db:string->obj paramsj)) ;; (rmt:json-str->dat paramsj))
-	 (res     (api:execute-requests dbstruct cmd params)))
+	 (resdat  (api:execute-requests dbstruct cmd params)) ;; #( flag result )
+	 (res     (vector-ref resdat 1)))
 
     ;; This can be here but needs controls to ensure it doesn't run more than every 4 seconds
     ;; (rmt:dat->json-str
     ;;  (if (or (string? res)
     ;;          (list?   res)

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -180,11 +180,12 @@
 			       (set! *dbstruct-db* db)
 			       db)))
 	 (db-file-path   (db:dbfile-path 0)))
     ;; (read-only      (not (file-read-access? db-file-path)))
     (let* ((start         (current-milliseconds))
-	   (res           (api:execute-requests dbstruct-local (symbol->string cmd) params))
+	   (resdat        (api:execute-requests dbstruct-local (symbol->string cmd) params))
+	   (res           (vector-ref resdat 1))
 	   (duration      (- (current-milliseconds) start)))
       (rmt:update-db-stats run-id cmd params duration)
       ;; mark this run as dirty if this was a write
       (if (not (member cmd api:read-only-queries))
 	  (let ((start-time (current-seconds)))