--- loncom/loncnew	2004/09/22 10:34:44	1.58
+++ loncom/loncnew	2004/09/22 10:46:06	1.59
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.58 2004/09/22 10:34:44 foxr Exp $
+# $Id: loncnew,v 1.59 2004/09/22 10:46:06 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1466,10 +1466,7 @@ sub SetupLoncListener {
 					    Type   => SOCK_STREAM)) {
 	die "Failed to create a lonc listner socket";
     }
-    Event->io(cb     => \&NewClient,
-	      poll   => 'r',
-	      desc   => 'Lonc listener Unix Socket',
-	      fd     => $socket);
+    return $socket;
 }
 
 #
@@ -1597,7 +1594,11 @@ sub ChildProcess {
 		  data     => "INT");
 
     
-    SetupLoncListener();
+    my $socket =  SetupLoncListener();
+    Event->io(cb   => \&NewClient,
+	      poll => 'r',
+	      desc => 'Lonc Listener Unix Socket',
+	      fd   => $socket);
     
     $Event::Debuglevel = $DebugLevel;