Index: openacs-4/packages/categories/tcl/category-xml-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-xml-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/tcl/category-xml-procs.tcl	27 Apr 2005 08:22:00 -0000	1.2
+++ openacs-4/packages/categories/tcl/category-xml-procs.tcl	8 Nov 2008 17:05:38 -0000	1.3
@@ -32,7 +32,7 @@
     @author Tom Ayles (tom@beatniq.net)
 } {
     # recode site_wide_p to DB-style boolean
-    if $site_wide_p { set site_wide_p t } else { set site_wide_p f }
+    if {$site_wide_p} { set site_wide_p t } else { set site_wide_p f }
 
     set doc [dom parse $xml]
     if [catch {set root [$doc documentElement]} err] {
@@ -53,7 +53,7 @@
                            [[$translation selectNodes {description}] text]}] {
                 set description {}
             }
-            if $tree_id {
+            if {$tree_id} {
                 # tree initialised, add translation
                 category_tree::update \
                     -tree_id $tree_id \
@@ -102,7 +102,7 @@
             set description {}
         }
 
-        if $category_id {
+        if {$category_id} {
             # category exists, add translation
             category::update \
                 -category_id $category_id \