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 -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	9 Feb 2004 19:48:44 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	6 Nov 2008 15:50:44 -0000	1.4
@@ -9,6 +9,7 @@
     sort_key:array
     {locale ""}
     object_id:integer,optional
+    ctx_id:integer,optional
 }
 
 permission::require_permission -object_id $tree_id -privilege category_tree_write
@@ -30,7 +31,7 @@
             lappend child($parent_id) [list $count $category_id 0 0]
         }
     }
-    set last_ind [expr ($count / 5) + 1]
+    set last_ind [expr {($count / 5) + 1}]
 
     set count 1
     set stack [list]
@@ -54,7 +55,7 @@
             set stack [concat [lsort -integer -index 0 $child($act_category)] $stack]
         } else {
             ## this category has no children, so it is done
-            lappend done_list [list $act_category $count [expr $count + 1]]
+            lappend done_list [list $act_category $count [expr {$count + 1}]]
             incr count 1
         }
         incr count 1
@@ -77,4 +78,4 @@
     return
 }
 
-ad_returnredirect [export_vars -no_empty -base tree-view {tree_id locale object_id}]
+ad_returnredirect [export_vars -no_empty -base tree-view {tree_id locale object_id ctx_id}]