--- loncom/Attic/lonc	2002/04/04 21:55:55	1.37
+++ loncom/Attic/lonc	2002/04/04 22:04:54	1.38
@@ -5,7 +5,7 @@
 # provides persistent TCP connections to the other servers in the network
 # through multiplexed domain sockets
 #
-# $Id: lonc,v 1.37 2002/04/04 21:55:55 foxr Exp $
+# $Id: lonc,v 1.38 2002/04/04 22:04:54 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -512,7 +512,9 @@ sub HandleInput
     my $ready   = shift;
     my $sock;
 
-    &logthis("Entered HandleInput\n");
+    if($DEBUG) {
+	&logthis("Entered HandleInput\n");
+    }
     foreach $sock (keys %$sockets) {
 	my $socket = $sockets->{$sock};
 	if(vec($selvec, $sock, 1)) { # Socket which is readable.