Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -111,10 +111,11 @@
 ;;
 (define (api:execute-requests dbstruct dat)
   (handle-exceptions
    exn
    (let ((call-chain (get-call-chain)))
+     (debug:print 0 *default-log-port* "WARNING: api:execute-requests received an exception from peer")
      (print-call-chain (current-error-port))
      (debug:print 0 *default-log-port* " message: "  ((condition-property-accessor 'exn 'message) exn))       
      (vector #f (vector exn call-chain dat))) ;; return some stuff for debug if an exception happens
    (if (not (vector? dat))                    ;; it is an error to not receive a vector
        (vector #f #f "remote must be called with a vector")       

Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1157,22 +1157,19 @@
          (host-last-update-timeout-seconds 10)
          (host-rec (hash-table-ref/default *host-loads* hostname #f))
          )
     (cond
      ((< load-sample-age loadinfo-timeout-seconds)
-      ;;(print "BB> chr - 1")
       (list #t
             load-sample-time
             load))
      ((and host-rec
            (< (current-seconds) (+ (host-last-update host-rec) host-last-update-timeout-seconds)))
-      ;;(print "BB> chr - 2")
       (list #t
             (host-last-update host-rec)
             (host-last-cpuload host-rec )))
      ((common:unix-ping hostname)
-      ;;(print "BB> chr - 3 host-rec="host-rec" lu="(if host-rec (- (current-seconds) (host-last-update host-rec)) "None"))
       (list #t
             (current-seconds)
             (alist-ref 'adj-core-load (common:get-normalized-cpu-load hostname))))
      (else
       (list #f 0 -1)))))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -3483,11 +3483,10 @@
 (define (db:get-latest-host-load dbstruct raw-hostname)
   (let* ((hostname (string-substitute "\\..*$" "" raw-hostname))
         (res  (cons -1 0))
         (mydb (db:dbdat-get-db (db:get-db dbstruct 0)))
         )
-    (print "BB> hostname="hostname" raw-hostname="raw-hostname" dbstruct="dbstruct" mydb="mydb)
     (db:with-db
      dbstruct
      0
      #f
      (lambda (db)

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -217,11 +217,11 @@
   (let* ((fullurl    (if (vector? serverdat)
 			 (http-transport:server-dat-get-api-req serverdat)
 			 (begin
 			   (debug:print 0 *default-log-port* "FATAL ERROR: http-transport:client-api-send-receive called with no server info")
 			   (exit 1))))
-	 (res        #f)
+	 (res        (vector #f "uninitialized"))
 	 (success    #t)
 	 (sparams    (db:obj->string params transport: 'http)))
        (debug:print-info 11 *default-log-port* "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n")
        ;; set up the http-client here
        (max-retry-attempts 1)