Index: openacs-4/packages/contacts/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/contacts/www/index.tcl	12 Aug 2004 17:38:41 -0000	1.1.2.1
+++ openacs-4/packages/contacts/www/index.tcl	18 Aug 2004 20:03:11 -0000	1.1.2.2
@@ -60,7 +60,7 @@
 
 set categories_p [contacts::categories::enabled_p]
 
-if { $categories_p } {
+if { [string is true $categories_p] } {
 set category_select [contacts::categories::get_selects -export_vars $export_vars_category_form -category_id $temp_category_id] 
 }