Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -r1.33 -r1.33.2.1
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	3 Dec 2012 09:44:55 -0000	1.33
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	5 Oct 2013 12:55:10 -0000	1.33.2.1
@@ -978,7 +978,7 @@
             lappend sort_list [list $i $sortby]
         }
 
-        set sort_list [eval lsort $sort_args -index 1 [list $sort_list]]
+        set sort_list [lsort {*}$sort_args -index 1 $sort_list]
 
         
         # Now we have a list with two elms, (rownum, sort-by-value), sorted by sort-by-value