--- loncom/lonnet/perl/lonnet.pm	2007/05/22 21:56:32	1.880
+++ loncom/lonnet/perl/lonnet.pm	2007/05/26 00:38:19	1.881
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.880 2007/05/22 21:56:32 banghart Exp $
+# $Id: lonnet.pm,v 1.881 2007/05/26 00:38:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3133,7 +3133,7 @@ sub set_userprivs {
     if (keys(%{$allgroups}) > 0) {
         foreach my $role (keys %{$allroles}) {
             my ($trole,$area,$sec,$extendedarea);
-            if ($role =~ m-^(\w+|cr/$match_domain/$match_username/\w+)\.(/$match_domain/$match_courseid)(/?\w*)-) {
+            if ($role =~ m-^(\w+|cr/$match_domain/$match_username/\w+)\.(/$match_domain/$match_courseid)(/?\w*)\.-) {
                 $trole = $1;
                 $area = $2;
                 $sec = $3;