@@ -635,11 +635,14 @@
 	     (my-index  (list-index (lambda (x)
 				      (equal? (list-ref x 6)
 					      (tt-servinf-file ttdat)))
 				    servers))
 	     (ok         (cond
-			  ((not *server-run*)
+			  ((not (number? my-index))
+			   (debug:print 0 *default-log-port* "ERROR: bad server data in "servers", might be due to host misconfiguration such as bad IP address in /etc/hosts.")
+			   #f)
+			   ((not *server-run*)
 			   (debug:print 0 *default-log-port* "WARNING: received a stop server from client by remote request.")
 			   #f)
 			  ((null? servers)
 			   (debug:print 0 *default-log-port* "WARNING: no servinfo files found, this cannot be.")
 			   #f) ;; not ok