--- loncom/interface/lonpreferences.pm	2014/02/12 20:29:36	1.211
+++ loncom/interface/lonpreferences.pm	2014/02/15 17:59:33	1.212
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.211 2014/02/12 20:29:36 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.212 2014/02/15 17:59:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1317,9 +1317,9 @@ sub passwordchanger {
     return if ($currentauth !~ /^(unix|internal):/);
     #
     # Generate keys
-    my ($lkey_cpass ,$ukey_cpass ) = &des_keys();
-    my ($lkey_npass1,$ukey_npass1) = &des_keys();
-    my ($lkey_npass2,$ukey_npass2) = &des_keys();
+    my ($lkey_cpass ,$ukey_cpass ) = &Apache::loncommon::des_keys();
+    my ($lkey_npass1,$ukey_npass1) = &Apache::loncommon::des_keys();
+    my ($lkey_npass2,$ukey_npass2) = &Apache::loncommon::des_keys();
     # Store the keys in the log files
     my $lonhost = $r->dir_config('lonHostID');
     my $logtoken=Apache::lonnet::reply('tmpput:'