--- loncom/lonnet/perl/lonnet.pm	2002/01/04 16:31:41	1.197
+++ loncom/lonnet/perl/lonnet.pm	2002/01/04 18:12:23	1.198
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.197 2002/01/04 16:31:41 www Exp $
+# $Id: lonnet.pm,v 1.198 2002/01/04 18:12:23 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1736,6 +1736,8 @@ sub modifyuserauth {
 sub modifyuser {
     my ($udom,$uname,$uid,$umode,$upass,$first,$middle,$last,$gene,
         $forceid)=@_;
+    $udom=~s/\W//g;
+    $uname=~s/\W//g;
     &logthis('Call to modify user '.$udom.', '.$uname.', '.$uid.', '.
              $umode.', '.$first.', '.$middle.', '.
 	     $last.', '.$gene.'(forceid: '.$forceid.') by '.