Index: openacs-4/packages/categories/www/cadmin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/categories/www/cadmin/index.tcl	6 Jun 2005 09:43:47 -0000	1.9
+++ openacs-4/packages/categories/www/cadmin/index.tcl	8 Nov 2008 17:05:38 -0000	1.10
@@ -31,9 +31,9 @@
     array unset tree_array
     array set tree_array [category_tree::get_data $tree_id $locale]
 
-    if { [string equal $has_write_p "t"] } {
+    if {$has_write_p == "t"} {
 	template::multirow append trees_with_write_permission $tree_id $tree_array(tree_name) $site_wide_p $tree_array(description)
-    } elseif { [string equal $has_read_p "t"] || [string equal $site_wide_p "t"] } {
+    } elseif { $has_read_p == "t" || $site_wide_p == "t" } {
 	template::multirow append trees_with_read_permission $tree_id $tree_name $site_wide_p $tree_array(description)
     }
 }