Index: openacs-4/packages/categories/www/categories-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/categories/www/categories-browse.tcl	1 Mar 2005 00:01:26 -0000	1.8
+++ openacs-4/packages/categories/www/categories-browse.tcl	8 Nov 2008 17:05:38 -0000	1.9
@@ -58,7 +58,7 @@
 	util_unlist $category category_id category_name deprecated_p level
 	set indent ""
 	if {$level>1} {
-	    set indent "[string repeat " " [expr 2*$level -4]].."
+	    set indent "[string repeat " " [expr {2*$level -4}]].."
 	}
 	template::multirow append trees $tree_id $tree_name $category_id $category_name $indent [info exists category_selected($category_id)]
     }
@@ -108,9 +108,9 @@
 }
 
 set category_ids_length [llength $category_ids]
-if {$join == "and"} {
+if {$join eq "and"} {
     # combining categories with and
-    if {$subtree_p == "t"} {
+    if {$subtree_p eq "t"} {
 	# generate sql for exact categorizations plus subcategories
 	set subtree_sql [db_map include_subtree_and]
     } else {
@@ -119,7 +119,7 @@
     }
 } else {
     # combining categories with or
-    if {$subtree_p == "t"} {
+    if {$subtree_p eq "t"} {
 	# generate sql for exact categorizations plus subcategories
 	set subtree_sql [db_map include_subtree_or]
     } else {