Index: openacs-4/packages/categories/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/categories/www/index.tcl	1 Mar 2005 00:01:26 -0000	1.7
+++ openacs-4/packages/categories/www/index.tcl	8 Nov 2008 17:05:38 -0000	1.8
@@ -24,7 +24,7 @@
 template::multirow create trees tree_ids tree_name site_wide_p short_name
 
 db_foreach get_trees "" {
-    if { [string equal $has_read_p "t"] || [string equal $site_wide_p "t"] } {
+    if { $has_read_p == "t" || $site_wide_p == "t" } {
 	set tree_name [category_tree::get_name $tree_id $locale]
 	template::multirow append trees $tree_id $tree_name $site_wide_p
     }