Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -r1.7.2.184 -r1.7.2.185
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	7 Dec 2021 11:03:33 -0000	1.7.2.184
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	7 Dec 2021 12:26:36 -0000	1.7.2.185
@@ -2991,32 +2991,32 @@
     # Class:  Answer_manager
     # Method: dom ensemble for tdom manipluations
     #----------------------------------------------------------------------
-    :method "dom node replace" {dom_node xquery script} {
-      set node [$dom_node selectNodes $xquery]
+    :method "dom node replace" {domNode xquery script} {
+      set node [$domNode selectNodes $xquery]
       if {$node ne ""} {
         foreach child [$node childNodes] {
           $child delete
         }
         :uplevel [list $node appendFromScript $script]
       }
     }
-    :method "dom node delete" {dom_node xquery} {
-      set nodes [$dom_node selectNodes $xquery]
+    :method "dom node delete" {domNode xquery} {
+      set nodes [$domNode selectNodes $xquery]
       foreach node $nodes {
         $node delete
       }
     }
-    :method "dom class add" {dom_node xquery class} {
-      set nodes [$dom_node selectNodes $xquery]
+    :method "dom class add" {domNode xquery class} {
+      set nodes [$domNode selectNodes $xquery]
       foreach node $nodes {
         set oldClass [$node getAttribute class]
         if {$class ni $oldClass} {
           $node setAttribute class "$oldClass $class"
         }
       }
     }
-    :method "dom class remove" {dom_node xquery class} {
-      set nodes [$dom_node selectNodes $xquery]
+    :method "dom class remove" {domNode xquery class} {
+      set nodes [$domNode selectNodes $xquery]
       foreach node $nodes {
         set oldClass [$node getAttribute class]
         set pos [lsearch $oldClass $class]