Index: openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl	1 Aug 2007 08:30:53 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl	22 Mar 2008 18:31:32 -0000	1.3
@@ -45,7 +45,7 @@
     set node_object ""
     foreach node_name $args {
 	catch {set node_object [$parent_node_object getElementsByTagName "$node_name"]}
-	if {![string equal $node_object ""]} {
+	if {$node_object ne "" } {
 	    return $node_object
 	}
     }
@@ -85,7 +85,7 @@
 
     foreach tag_name $args {
 	catch {set tag_value [[$node_object getElementsByTagName "$tag_name"] text]} errormsg
-	if {![string equal [string trim $tag_value] ""]} {
+	if {[string trim $tag_value] ne "" } {
 	    return $tag_value
 	}
     }