Index: openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl,v
diff -u -N -r1.3.10.4 -r1.3.10.5
--- openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	10 Oct 2013 20:44:08 -0000	1.3.10.4
+++ openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	10 Oct 2013 21:32:34 -0000	1.3.10.5
@@ -1928,7 +1928,7 @@
     switch $node(node:nodeType) {
 
 	textNode {
-	    if {![string length [string trim $node(node:nodeValue)]]} {
+	    if {[string trim $node(node:nodeValue)] eq ""} {
 		node removeChild $node(node:parentNode) $nodeid
 	    }
 	}