Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -535,11 +535,15 @@
 				   (if (and (file-exists? servinfofile)
 					  (> (- (current-seconds)(file-modification-time servinfofile)) 30))
 				     (begin
 				       ;; can't ping and file has been on disk 15 seconds, go ahead and try to remove it
 				       (debug:print-info 0 *default-log-port* "Removing apparently dead server info file: "servinfofile)
-				       (delete-file* servinfofile)
+                                       (handle-exceptions
+                                        exn
+                                        (debug:print-info 0 *default-log-port* "Error removing server info file: "servinfofile)
+				        (delete-file* servinfofile)
+                                       )
 				       #t) ;; not the server but the server is not reachable
 				     (begin
 				       (debug:print 0 *default-log-port* "I'm not the server but could not ping "host":"port", will try again.")
 				       (thread-sleep! 1) ;; just because
 				       #t)))))