@@ -275,12 +275,14 @@
 			      ;; (condition-case (with-input-from-request "http://localhost"; #f read-lines)
 			      ;;					       ((exn http client-error) e (print e)))
 			      (set! res (handle-exceptions
 					 exn
 					 (begin
-					   (debug:print 0 "ERROR: failure in with-input-from-request. Giving up.")
+					   (debug:print 0 "WARNING: failure in with-input-from-request. Killing associated server to allow clean retry.")
 					   (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
+					   (hash-table-delete! *runremote* run-id)
+					   (tasks:kill-server-run-id run-id)
 					   #f)
 					 (with-input-from-request ;; was dat
 					  fullurl 
 					  (list (cons 'key "thekey")
 						(cons 'cmd cmd)