@@ -260,11 +260,14 @@
 		(errmsg  (case status
 			   ((busy)   (conc "Server overloaded, "newcount" threads in flight"))
 			   ((loaded) (conc "Server loaded, "newcount" threads in flight"))
 			   (else     #f)))
 		(result  (case status
-			   ((busy)  15) ;; (- newcount 29)) ;; call back in as many seconds
+			   ((busy)
+			    (if (eq? cmd 'ping)
+				(normal-proc cmd run-id params)
+				15)) ;; (- newcount 29)) ;; call back in as many seconds
 			   ((loaded)
 ;; 			    (if (eq? (rmt:transport-mode) 'tcp)
 ;; 				(thread-sleep! 0.5))
 			    (normal-proc cmd run-id params))
 			   (else