@@ -471,11 +471,16 @@ (if (and start-res ping-res) (let ((url (http-transport:server-dat-make-url start-res))) (remote-conndat-set! *runremote* start-res) (remote-server-url-set! *runremote* url) - (debug:print-info 0 *default-log-port* "connected to " url " using CMDINFO data.")) + (if (server:ping url) + (debug:print-info 0 *default-log-port* "connected to " url " using CMDINFO data.") + (begin + (debug:print-info 0 *default-log-port* "have CMDINFO data but failed to connect to " url) + (remote-conndat-set! *runremote* #f) + (remote-server-url-set! *runremote* #f)))) (debug:print-info 0 *default-log-port* "received " host ":" port " for url but could not connect.") ))))))) ;; NFS might not have propagated the directory meta data to the run host - give it time if needed (let loop ((count 0)) (if (or (file-exists? top-path)