--- loncom/interface/selfenroll.pm	2008/07/08 01:55:52	1.7
+++ loncom/interface/selfenroll.pm	2008/07/10 00:19:56	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Allow users to self-enroll in a course
 #
-# $Id: selfenroll.pm,v 1.7 2008/07/08 01:55:52 raeburn Exp $
+# $Id: selfenroll.pm,v 1.8 2008/07/10 00:19:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -339,7 +339,7 @@ sub process_self_enroll {
                                                 $area);
             &Apache::lonnet::set_userprivs(\%userroles,\%newrole,%newgroups);
             $userroles{'user.role.'.$spec} = $selfenroll_access_start.'.'.$selfenroll_access_end;
-            &Apache::lonnet::appenv(\%userroles,[$role]);
+            &Apache::lonnet::appenv(\%userroles,[$role,'cm']);
             if ($selfenroll_access_end && $selfenroll_access_end <= $now) {
                 $r->print(&mt('The end date for access to this course for users who self-enroll has passed.').'<br />'.&mt('Consequently, although a new role was created for you in the course, it is an inactive role which does not provide access to the course.'));
             } else {