--- loncom/interface/longroup.pm	2006/07/17 15:07:26	1.10
+++ loncom/interface/longroup.pm	2006/07/28 18:44:27	1.11
@@ -232,6 +232,9 @@ sub group_changes {
     my $courseid = $cid;
     $courseid =~ s|^/||;
     $courseid =~ s|/|_|;
+    if ($role =~ /^cr/) {
+        $role =~ s/\//_/g;
+    }
     my %crshash=&Apache::lonnet::coursedescription($cid);
     $cdom = $crshash{'domain'};
     $cnum = $crshash{'num'};