File scotty-http.patch of Package scotty

--- tnm/generic/tnmHttp.c
+++ tnm/generic/tnmHttp.c
@@ -1160,6 +1160,9 @@
 
     Tcl_SetChannelOption(interp, channel, "-blocking", "0");
 
+    if (TnmSetIPAddress(interp, hostName, &sockaddr) != TCL_OK) {
+	memset(&sockaddr, 0, sizeof(struct sockaddr_in));
+    }
     rc = HttpEvalCallback(interp, bindPtr->command, 
 			  inet_ntoa(sockaddr.sin_addr), path);
     if (rc == TCL_OK) {