@@ -1768,19 +1768,32 @@
 	    (debug:print 0 *default-log-port* "failed to write file " fullpath ", exn=" exn)
 	    #f)
 	  (with-output-to-file fullpath (lambda ()(pp dat)))))
       #f))
 
-(define (common:raw-get-remote-host-load remote-host)
+(define (common:raw-get-remote-host-load-orig remote-host)
   (handle-exceptions
       exn
     (begin
       (debug:print 0 *default-log-port* "failed to ssh to " remote-host " and get loadavg. exn=" exn)
       #f) ;; more specific handling of errors needed
     (with-input-from-pipe 
      (conc "ssh " remote-host " cat /proc/loadavg")
      (lambda ()(list (read)(read)(read))))))
+
+(define (common:raw-get-remote-host-load remote-host)
+  (let* ((inp #f))
+    (handle-exceptions
+	exn
+      (begin
+	(close-input-pipe inp)
+	(debug:print 0 *default-log-port* "failed to ssh to " remote-host " and get loadavg. exn=" exn)
+	#f) ;; more specific handling of errors needed
+      (set! inp (open-input-pipe (conc "ssh " remote-host " cat /proc/loadavg")))
+      (let ((res (list (read inp)(read inp)(read inp))))
+	(close-input-pipe inp)
+	res))))
 
 ;;======================================================================
 ;; get cpu load by reading from /proc/loadavg, return all three values
 ;;
 (define (common:get-cpu-load remote-host)