--- loncom/lonnet/perl/lonnet.pm	1999/11/08 16:20:35	1.2
+++ loncom/lonnet/perl/lonnet.pm	1999/11/16 22:00:17	1.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 # 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
-# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,11/8 Gerd Kortemeyer
+# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,11/8,11/16 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -171,7 +171,7 @@ sub authenticate {
 
     if (($perlvar{'lonRole'} eq 'library') && 
         ($udom eq $perlvar{'lonDefDomain'})) {
-        my $answer=reply("enc:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});
+    my $answer=reply("encrypt:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});
         if ($answer =~ /authorized/) {
               if ($answer eq 'authorized') { return $perlvar{'lonHostID'}; }
               if ($answer eq 'non_authorized') { return 'no_host'; }