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.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	13 Sep 2002 11:10:33 -0000	1.2
@@ -1519,7 +1519,7 @@
 
     if {![info exists node(document:documentElement)]} {
 	return -code error "document has no document element"
-    } elseif {![string length node(document:doctype)]} {
+    } elseif {![string length $node(document:doctype)]} {
 	return -code error "no document type declaration given"
     } else {