Index: openacs-4/packages/cms/tcl/user-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/Attic/user-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/cms/tcl/user-procs.tcl	18 Sep 2002 12:04:14 -0000	1.5
+++ openacs-4/packages/cms/tcl/user-procs.tcl	13 Nov 2003 11:54:46 -0000	1.6
@@ -53,7 +53,7 @@
   #   on the CMS pages root folder
   ad_proc cms_admin_exists {} {
   
-      set_admin_exists [db_string cae_admin_exists ""]
+      set admin_exists [db_string cae_admin_exists ""]
 
       if { [string equal $admin_exists t] } {
           return 1