Index: openacs-4/packages/acs-tcl/tcl/xml-2-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-2-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-tcl/tcl/xml-2-procs.tcl 7 Aug 2017 23:48:00 -0000 1.4 +++ openacs-4/packages/acs-tcl/tcl/xml-2-procs.tcl 11 Jul 2018 10:37:41 -0000 1.5 @@ -102,7 +102,7 @@ # -reportempty whether to provide empty element indication # # Results: -# The state variable is initialised. +# The state variable is initialized. proc xml::parser {args} { variable ParserCounter @@ -213,15 +213,15 @@ set parent {} } - set tokenised [lrange \ + set tokenized [lrange \ [${parent}::sgml::tokenise $xml \ $tokExpr \ $substExpr \ -internaldtdvariable [namespace current]::${object}(internaldtd)] \ 4 end] eval ${parent}::sgml::parseEvent \ - [list $tokenised \ + [list $tokenized \ -emptyelement [namespace code ParseEmpty] \ -parseattributelistcommand [namespace code ParseAttrs]] \ [array get parser -*command] \ @@ -300,7 +300,7 @@ # object parser object # # Results: -# Parser data structure initialised +# Parser data structure initialized proc xml::ParseCommand_reset object { upvar \#0 [namespace current]::$object parser