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 -r1.31.2.1 -r1.31.2.2
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	15 Feb 2019 18:18:00 -0000	1.31.2.1
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	1 Mar 2019 10:27:05 -0000	1.31.2.2
@@ -374,7 +374,7 @@
                 set tree [list]
             }
             set tree_id_old $tree_id
-            lappend tree [list $category_id [ad_decode "$invalid_p$deprecated_p" "" f t] $cur_level]
+            lappend tree [list $category_id [expr {"$invalid_p$deprecated_p" eq "" ? f : t}] $cur_level]
             if { $right_ind - $left_ind > 1} {
                 incr cur_level 1
                 set invalid_p "$invalid_p$deprecated_p"
@@ -405,7 +405,7 @@
         set invalid_p ""
         set tree [list]
         db_foreach flush_cache "" {
-            lappend tree [list $category_id [ad_decode "$invalid_p$deprecated_p" "" f t] $cur_level]
+            lappend tree [list $category_id [expr {"$invalid_p$deprecated_p" eq "" ? f : t}] $cur_level]
             if { $right_ind - $left_ind > 1} {
                 incr cur_level 1
                 set invalid_p "$invalid_p$deprecated_p"