--- loncom/LondConnection.pm	2003/08/03 00:45:54	1.8
+++ loncom/LondConnection.pm	2003/08/26 09:21:01	1.9
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondConnection.pm,v 1.8 2003/08/03 00:45:54 foxr Exp $
+# $Id: LondConnection.pm,v 1.9 2003/08/26 09:21:01 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -145,8 +145,8 @@ sub new {
 		     TimeoutCallback    => undef,
 		     TransitionCallback => undef,
 	             Timeoutable        => 0,
-	             TimeoutValue       => 60,
-             TimeoutRemaining   => 0,
+	             TimeoutValue       => 30,
+		     TimeoutRemaining   => 0,
 		     CipherKey          => "",
 		     Cipher             => undef};
     bless($self, $class);
@@ -162,6 +162,7 @@ sub new {
     #
     $self->Transition("Connected");
     $self->{InformWritable}     = 1;    # When  socket is writable we send init
+    $self->{Timeoutable}        = 1;    # Timeout allowed during startup negotiation. 
     $self->{TransactionRequest} = "init\n";
     
     #