Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.122 -r1.122.2.1
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	15 Mar 2010 00:09:00 -0000	1.122
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	30 Oct 2010 21:45:51 -0000	1.122.2.1
@@ -1758,7 +1758,7 @@
     }
 }
 
-ad_proc -public apply {func arglist} {
+ad_proc -public ad_apply {func arglist} {
     Evaluates the first argument with ARGLIST as its arguments, in the
     environment of its caller. Analogous to the Lisp function of the same name.
 } {
@@ -1775,7 +1775,7 @@
 	    return -code error "Unsafe argument to safe_eval: $arg"
 	}
     }
-    return [apply uplevel $args]
+    return [ad_apply uplevel $args]
 }
 
 ad_proc -public lmap {list proc_name} {