--- tcpserver.c.orig	2003-06-15 16:39:45.000000000 +0900
+++ tcpserver.c	2003-06-15 16:40:49.000000000 +0900
@@ -205,6 +205,8 @@
 	if (!flagparanoid) {
 	  if (!stralloc_0(&remotehostsa)) drop_nomem();
 	  remotehost = remotehostsa.s;
+	} else {
+	  env("TCPPARANOID", remotehostsa.s);
 	}
       }
   env("TCPREMOTEIP",remoteipstr);