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.15 -r1.16
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	16 Jun 2005 09:48:54 -0000	1.15
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	13 Oct 2005 14:46:01 -0000	1.16
@@ -279,7 +279,7 @@
             set subtree_level 0
             foreach category $tree {
                 util_unlist $category category_id deprecated_p level
-                if {$level == $subtree_level} {
+                if {$level <= $subtree_level} {
                     set in_subtree_p 0
                 }
                 if {$in_subtree_p && $deprecated_p == "f"} {