Index: openacs-4/packages/categories/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/install-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/categories/tcl/install-procs.tcl	11 Oct 2005 15:50:07 -0000	1.2
+++ openacs-4/packages/categories/tcl/install-procs.tcl	8 Nov 2008 17:05:38 -0000	1.3
@@ -31,7 +31,7 @@
         }
     }
 
-    if {![string equal $id ""]} {
+    if {$id ne "" } {
         set ::install::xml::ids($id) $tree_id
     }
 }
@@ -43,7 +43,7 @@
     set object_id [apm_attribute_value -default "" $node object-id]
 
     set tree_ids [list]
-    if {[string equal $tree_id ""]} {
+    if {$tree_id eq ""} {
         set trees_node [lindex [xml_node_get_children_by_name $node trees] 0]
         set trees [xml_node_get_children $trees_node]
 
@@ -57,7 +57,7 @@
     }
 
     set object_ids [list]
-    if {[string equal $object_id ""]} {
+    if {$object_id eq ""} {
         set objects_node [lindex [xml_node_get_children_by_name $node objects] 0]
         set objects [xml_node_get_children $objects_node]
 
@@ -71,7 +71,7 @@
     }
 
     foreach tree_id $tree_ids {
-        if {[string equal [acs_object_type $tree_id] category]} {
+        if {[acs_object_type $tree_id] eq "category"} {
             set subtree_category_id $tree_id
             set tree_id [category::get_tree $subtree_category_id]
         } else {