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.1 -r1.3.10.2
--- openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	5 Sep 2013 11:51:00 -0000	1.3.10.1
+++ openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	29 Sep 2013 11:50:55 -0000	1.3.10.2
@@ -485,7 +485,7 @@
 		return -code error "wrong number of arguments"
 	    }
 
-	    foreach {name extid dtd entities notations} $args break
+	    lassign $args name extid dtd entities notations
 	    set result [CreateDocType $token $name $extid $dtd $entities $notations]
 	}