--- loncom/lonnet/perl/lonnet.pm	2005/11/15 22:02:58	1.679
+++ loncom/lonnet/perl/lonnet.pm	2005/11/17 16:58:23	1.680
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.679 2005/11/15 22:02:58 raeburn Exp $
+# $Id: lonnet.pm,v 1.680 2005/11/17 16:58:23 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3937,6 +3937,7 @@ sub modifyuser {
     }
     my $reply = &put('environment', \%names, $udom,$uname);
     if ($reply ne 'ok') { return 'error: '.$reply; }
+    &devalidate_cache_new('namescache',$uname.':'.$udom);
     &logthis('Success modifying user '.$udom.', '.$uname.', '.$uid.', '.
              $umode.', '.$first.', '.$middle.', '.
 	     $last.', '.$gene.' by '.