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.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	28 Oct 2010 22:15:25 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	30 Oct 2010 22:07:58 -0000	1.19
@@ -90,9 +90,13 @@
     [self class]::ChildManager instvar composite
     # push the active composite
     lappend composite [self]
+    # check, if we have Tcl's apply available
+    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]
+    }
 
-    set errorOccurred [catch {namespace eval [self] $cmds} errorMsg]
-
     # pop the last active composite
     set composite [lrange $composite 0 end-1]