--- loncom/lonhttpd	2007/04/13 15:43:42	1.14
+++ loncom/lonhttpd	2007/07/11 18:48:20	1.15
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: lonhttpd,v 1.14 2007/04/13 15:43:42 raeburn Exp $
+# $Id: lonhttpd,v 1.15 2007/07/11 18:48:20 albertel Exp $
 
 $VERSION = "1.3.2 (Demonic/Linux/LON-CAPA Derivative $Revison$)";
 
@@ -595,6 +595,7 @@ for (;;) {
 		waitpid($pid, 0);
 		$0 = "lonhttpd: (dhttpi) on ANY:$port_to_use, last request " .
 			scalar localtime;
+		close(NS);
 	} else {
 		$0 = "lonhttpd: (dhttpi) child switching to socket";
 		open(STDIN, "<&NS");