Index: rmt.scm ================================================================== --- rmt.scm +++ rmt.scm @@ -217,12 +217,12 @@ (jparams (db:obj->string params)) ;; (rmt:dat->json-str params)) (dat (http-transport:client-api-send-receive run-id connection-info cmd jparams))) (if (and dat (vector-ref dat 0)) (db:string->obj (vector-ref dat 1)) (begin - (debug:print 0 "ERROR: rmt:send-receive-no-auto-client-setup failed, attempting to continue. Got " res) - res)))) + (debug:print 0 "ERROR: rmt:send-receive-no-auto-client-setup failed, attempting to continue. Got " dat) + dat)))) ;; Wrap json library for strings (why the ports crap in the first place?) (define (rmt:dat->json-str dat) (with-output-to-string (lambda ()