--- loncom/Attic/lcuseradd	2004/08/05 21:01:20	1.25.2.1
+++ loncom/Attic/lcuseradd	2004/09/02 19:04:53	1.25.2.2
@@ -14,7 +14,7 @@
 #        o LonCapa will add it if/when the user is granted an Author
 #          role.
 #
-# $Id: lcuseradd,v 1.25.2.1 2004/08/05 21:01:20 albertel Exp $
+# $Id: lcuseradd,v 1.25.2.2 2004/09/02 19:04:53 albertel Exp $
 ###
 
 ###############################################################################
@@ -215,7 +215,7 @@ print "Done adding user\n" unless $nopri
 # Make www a member of that user group.
 my $groups=`/usr/bin/groups www` or exit(6);
 # untaint
-my ($safegroups)=($groups=~/([\s\w]+)/);
+my ($safegroups)=($groups=~/:\s*([\s\w]+)/);
 $groups=$safegroups;
 chomp $groups; $groups=~s/^\S+\s+\:\s+//;
 my @grouplist=split(/\s+/,$groups);