Index: openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	30 Oct 2010 22:07:58 -0000	1.19
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	14 Jan 2011 10:28:10 -0000	1.20
@@ -91,7 +91,7 @@
     # push the active composite
     lappend composite [self]
     # check, if we have Tcl's apply available
-    if {$::tcl_version >= 8.5 && [info proc apply] eq ""} {
+    if {$::tcl_version >= 8.5 && [info proc ::apply] eq ""} {
       set errorOccurred [catch {::apply [list {} $cmds [self]]} errorMsg]
     } else {
       set errorOccurred [catch {namespace eval [self] $cmds} errorMsg]