--- loncom/auth/lonauth.pm	2001/08/20 12:57:02	1.24
+++ loncom/auth/lonauth.pm	2001/10/05 05:21:56	1.25
@@ -259,7 +259,7 @@ sub handler {
 
     my $keybin=pack("H16",$key);
 
-    my $cipher=new DES $keybin;
+    my $cipher=new Crypt::DES $keybin;
 
     my $upass=$cipher->decrypt(
        unpack("a8",pack("H16",substr($FORM{'upass'},0,16))));