--- loncom/Attic/lonc	2003/09/17 19:05:03	1.55
+++ loncom/Attic/lonc	2003/10/24 16:36:14	1.56
@@ -5,7 +5,7 @@
 # provides persistent TCP connections to the other servers in the network
 # through multiplexed domain sockets
 #
-# $Id: lonc,v 1.55 2003/09/17 19:05:03 albertel Exp $
+# $Id: lonc,v 1.56 2003/10/24 16:36:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -711,7 +711,7 @@ sub openremote {
     my $st=120+int(rand(240)); # Sleep before opening:
 
     unless (
-	    $remotesock = IO::Socket::INET->new(PeerAddr => $hostip{$conserver},
+	    $remotesock = IO::Socket::INET->new(PeerAddr => $hostname{$conserver},
 						PeerPort => $perlvar{'londPort'},
 						Proto    => "tcp",
 						Type     => SOCK_STREAM)