Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -N -r1.63.2.1 -r1.63.2.2
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	12 Sep 2013 20:53:52 -0000	1.63.2.1
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	17 Sep 2013 17:49:24 -0000	1.63.2.2
@@ -275,7 +275,7 @@
     #my proc destroy {} {my log "--W"; next}
     
     if {$sort_composite ne ""} {
-      foreach {kind att direction} [split $sort_composite ,] break
+      lassign [split $sort_composite ,] kind att direction
       if {$kind eq "method"} {$items mixin add ::xo::OrderedComposite::MethodCompare}
       $items orderby -order [expr {$direction eq "asc" ? "increasing" : "decreasing"}] $att
     }