@@ -131,7 +131,13 @@
 	;; note: client:start will set *runremote*. this needs to be changed
 	;;       also, client:start will login to the server, also need to change that.
 	;;
 	;; client:start returns #t if login was successful.
 	;;
-	(client:start run-id server)
+	(let ((res (client:start run-id server)))
+	  ;; if the server didn't respond we must remove the record
+	  (if res
+	      res
+	      (begin
+		(open-run-close tasks:server-force-clean-running-records-for-run-id tasks:open-db run-id)
+		res)))
 	#f)))