--- loncom/lonnet/perl/lonnet.pm	2007/03/27 19:38:39	1.850
+++ loncom/lonnet/perl/lonnet.pm	2007/03/28 00:05:45	1.851
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.850 2007/03/27 19:38:39 albertel Exp $
+# $Id: lonnet.pm,v 1.851 2007/03/28 00:05:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -146,7 +146,7 @@ sub logperm {
 
 sub create_connection {
     my ($server) = @_;
-    my $client=IO::Socket::UNIX->new(Peer    =>"/home/httpd/sockets/common",
+    my $client=IO::Socket::UNIX->new(Peer    => $perlvar{'lonSockCreate'},
 				     Type    => SOCK_STREAM,
 				     Timeout => 10);
     return 0 if (!$client);