--- loncom/lonnet/perl/lonnet.pm	2006/06/22 13:16:09	1.753
+++ loncom/lonnet/perl/lonnet.pm	2006/06/22 13:28:32	1.754
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.753 2006/06/22 13:16:09 albertel Exp $
+# $Id: lonnet.pm,v 1.754 2006/06/22 13:28:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4711,12 +4711,12 @@ sub parse_access_controls {
                 }
             } elsif ($entry eq 'roles') {
                 $role_id = $token->[2]{id};
-		$content{$entry}{$role_id}} = {
+		$content{$entry}{$role_id} = {
 		                                 role => [],
                                                  access => [],
                                                  section => [],
                                                  group => [],
-                                                };
+                                             };
             } elsif ($entry eq 'users') {
                 $content{'users'} = {};
                 $usercount = 0;