Index: /server/common/oursrc/accountadm/admof.in
===================================================================
--- /server/common/oursrc/accountadm/admof.in	(revision 493)
+++ /server/common/oursrc/accountadm/admof.in	(revision 494)
@@ -1,2 +1,3 @@
+
 #!/usr/bin/perl
 use strict;
@@ -74,5 +75,10 @@
 }
 
-while(<LISTACL>) {
+my @targetacl = <LISTACL>;
+push(@targetacl, "  system:scripts-root rlidwka");
+
+close LISTACL;
+
+foreach(@targetacl) {
   last unless /^  /;
   my ($name) = /^  ([\w:_.-]+) \w*a\w*$/ or next;