Index: openacs.org-dev/packages/acs-bootstrap-installer/installer/create-administrator-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-bootstrap-installer/installer/create-administrator-2.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-bootstrap-installer/installer/create-administrator-2.tcl	9 Jul 2002 17:34:56 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-bootstrap-installer/installer/create-administrator-2.tcl	8 Oct 2002 15:46:41 -0000	1.1.1.2
@@ -44,19 +44,15 @@
         return
     }
 
-    # Changed this from db_dml to db_exec_plsql (ben - OpenACS)
-    # why was this a DML? Thanks to Oracle-only, this didn't make a
-    # difference, but it broke our DB API. This new version is correct.
-    db_exec_plsql grant_admin {
-      begin
-        acs_permission.grant_permission (
-          object_id => acs.magic_object_id('security_context_root'),
-          grantee_id => :user_id,
-          privilege => 'admin'
-        );
-      end;
-    }
+    # stub util_memoize_flush...
+    rename util_memoize_flush util_memoize_flush_saved
+    proc util_memoize_flush {args} {}
+    permission::grant -party_id $user_id -object_id [acs_lookup_magic_object security_context_root] -privilege "admin"
+    # nuke stub 
+    rename util_memoize_flush {}
+    rename util_memoize_flush_saved util_memoize_flush
+
   }
 }
     
-ns_returnredirect "site-info?[ad_export_vars email]"
+ad_returnredirect "site-info?[ad_export_vars email]"