--- loncom/lonnet/perl/lonnet.pm	2007/05/17 09:31:13	1.879
+++ 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.879 2007/05/17 09:31:13 foxr Exp $
+# $Id: lonnet.pm,v 1.881 2007/05/26 00:38:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -770,7 +770,7 @@ sub get_dom {
         }
         return %returnhash;
     } else {
-        &logthis("get_dom failed - no homeserver and/or domain");
+        &logthis("get_dom failed - no homeserver and/or domain ($udom) ($uhome)");
     }
 }
 
@@ -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;