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 -r1.3.10.3 -r1.3.10.4
--- openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	2 Oct 2013 22:55:57 -0000	1.3.10.3
+++ openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	10 Oct 2013 20:44:08 -0000	1.3.10.4
@@ -1521,7 +1521,7 @@
 
     if {![info exists node(document:documentElement)]} {
 	return -code error "document has no document element"
-    } elseif {![string length $node(document:doctype)]} {
+    } elseif {$node(document:doctype) eq ""} {
 	return -code error "no document type declaration given"
     } else {