--- loncom/lonnet/perl/lonnet.pm	2006/10/20 00:34:45	1.798
+++ loncom/lonnet/perl/lonnet.pm	2006/10/23 21:22:44	1.799
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.798 2006/10/20 00:34:45 raeburn Exp $
+# $Id: lonnet.pm,v 1.799 2006/10/23 21:22:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -536,10 +536,10 @@ sub compare_server_load {
 # --------------------------------------------- Try to change a user's password
 
 sub changepass {
-    my ($uname,$udom,$currentpass,$newpass,$server)=@_;
+    my ($uname,$udom,$currentpass,$newpass,$server,$context)=@_;
     $currentpass = &escape($currentpass);
     $newpass     = &escape($newpass);
-    my $answer = reply("encrypt:passwd:$udom:$uname:$currentpass:$newpass",
+    my $answer = reply("encrypt:passwd:$udom:$uname:$currentpass:$newpass:$context",
 		       $server);
     if (! $answer) {
 	&logthis("No reply on password change request to $server ".