Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -N -r1.25 -r1.25.4.1
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	21 Dec 2008 18:05:35 -0000	1.25
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	5 Sep 2013 11:51:00 -0000	1.25.4.1
@@ -360,7 +360,7 @@
             }
             set tree_id_old $tree_id
             lappend tree [list $category_id [ad_decode "$invalid_p$deprecated_p" "" f t] $cur_level]
-            if { [expr {$right_ind - $left_ind}] > 1} {
+            if { $right_ind - $left_ind > 1} {
                 incr cur_level 1
                 set invalid_p "$invalid_p$deprecated_p"
                 set stack [linsert $stack 0 [list $right_ind $invalid_p]]