--- loncom/loncnew	2004/06/01 10:02:13	1.47
+++ loncom/loncnew	2004/06/17 10:15:46	1.48
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.47 2004/06/01 10:02:13 foxr Exp $
+# $Id: loncnew,v 1.48 2004/06/17 10:15:46 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -232,7 +232,7 @@ sub SocketDump {
     my ($level, $socket) = @_;
 
     if($level <= $DebugLevel) {
-	$socket->Dump();
+	$socket->Dump(-1);	# Ensure it will get dumped.
     }
 }
 
@@ -265,7 +265,7 @@ sub SocketTimeout {
     my $Socket = shift;
     Log("WARNING", "A socket timeout was detected");
     Debug(0, " SocketTimeout called: ");
-    $Socket->Dump();
+    $Socket->Dump(0);
     if(exists($ActiveTransactions{$Socket})) {
 	FailTransaction($ActiveTransactions{$Socket});
     }
@@ -1441,7 +1441,7 @@ sub ChildStatus {
 	    my $state  = $Socket->GetState();
 	    print $fh "Connection $i State: $state\n";
 	    print STDERR "---------------------- Connection $i \n";
-	    $Socket->Dump();
+	    $Socket->Dump(-1);	# Ensure it gets dumped..
 	    $i++;	
 	}
     }