Index: openacs-4/packages/categories/www/cadmin/tree-order-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-order-update.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	29 Jun 2018 17:27:18 -0000	1.13
+++ openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	30 Oct 2018 15:40:49 -0000	1.14
@@ -51,7 +51,7 @@
             ## put category and all children back on stack
             lset next 2 $count
             set stack [linsert $stack 0 $next]
-            set stack [linsert $stack 0 [lsort -integer -index 0 $child($act_category)]]
+            set stack [linsert $stack 0 {*}[lsort -integer -index 0 $child($act_category)]]
         } else {
             ## this category has no children, so it is done
             lappend done_list [list $act_category $count [expr {$count + 1}]]