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 -N -r1.21.2.1 -r1.21.2.2
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	29 Sep 2013 20:10:02 -0000	1.21.2.1
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	30 Sep 2013 11:38:40 -0000	1.21.2.2
@@ -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 procs ::apply] eq ""} {
       set errorOccurred [catch {::apply [list {} $cmds [self]]} errorMsg]
     } else {
       set errorOccurred [catch {namespace eval [self] $cmds} errorMsg]