@@ -287,11 +287,13 @@
 					     (set! success #f)
 					     (debug:print 0 "WARNING: failure in with-input-from-request to " fullurl ".")
 					     (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
 					     (hash-table-delete! *runremote* run-id)
 					     ;; Killing associated server to allow clean retry.")
-					     ;; (tasks:kill-server-run-id run-id)  ;; better to kill the server in the logic that called this routine.
+					     (tasks:kill-server-run-id run-id)  ;; better to kill the server in the logic that called this routine?
+					     (signal (make-composite-condition
+						      (make-property-condition 'commfail 'message "failed to connect to server")))
 					     #f)
 					   (with-input-from-request ;; was dat
 					    fullurl 
 					    (list (cons 'key "thekey")
 						  (cons 'cmd cmd)