Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -757,11 +757,12 @@
     (let loop ((count 0))
       (if (not (file-exists? servinf))
 	  (begin
 	    (debug:print 0 *default-log-port* "WARNING: file "servinf" was created but it doesn't show up on disk! We'll try again.")
 	    (thread-sleep! 1)
-	    (if (< count 10)
+	    (if (> count 10)
+		(debug:print 0 *default-log-port* "WARNING: file "servinf" was not created.")
 		(loop (+ count 1))))))
     serv-id))
 
 ;; find valid server
 ;; get servers listed, last part of name must match :<dbfname>