--- loncom/lonnet/perl/lonnet.pm	2001/10/16 18:41:01	1.165
+++ loncom/lonnet/perl/lonnet.pm	2001/10/16 21:16:01	1.166
@@ -1241,7 +1241,7 @@ sub allowed {
 
 # If this is generating or modifying users, exit with special codes
 
-    if (':csu:cdc:ccc:cin:cta:cep:ccr:cst:cad:cli:cau:cdg:'=~/\:$priv\:/) {
+    if (':csu:cdc:ccc:cin:cta:cep:ccr:cst:cad:cli:cau:cdg:cca:'=~/\:$priv\:/) {
 	return $thisallowed;
     }
 #