Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.79.2.37 -r1.79.2.38
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	14 Jan 2021 15:24:19 -0000	1.79.2.37
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	7 Feb 2021 18:53:28 -0000	1.79.2.38
@@ -150,7 +150,7 @@
     constructor
     destructor
 } {
-    Registers a initialization class to be used by one or more testcases.  An
+    Registers an initialization class to be used by one or more testcases.  An
     initialization class can be assigned to a testcase via the
     aa_register_case proc.
 
@@ -550,7 +550,7 @@
 ad_proc -public aa_export_vars {
     varnames
 } {
-    Called from a initialization class constructor or a component to
+    Called from an initialization class constructor or a component to
     explicitly export the specified variables to the current testcase. You need
     to call aa_export_vars <b>before</b> you create the variables.
 
@@ -935,7 +935,7 @@
             return
     }
     #
-    # If logging is happened whilst in a initialization class, store the log
+    # If logging is happened whilst in an initialization class, store the log
     # entry, but don't write it to the database.  Individual testcase will make
     # their own copies of these log entries.
     #
@@ -1209,7 +1209,7 @@
             set form_content [form_get_fields $form]
         }
         if {$form_content eq ""} {
-            error "either non-empty form or form_content has to be provided"
+            error "either nonempty form or form_content has to be provided"
         }
         if {$url eq ""} {
             set url [dict get $form @action]
@@ -1800,7 +1800,7 @@
     #
     # All procs in this namespace have the signature
     #   root xpath
-    # where root is a dom-node and xpath a an XPath expression.
+    # where "root" is a DOM-node and "xpath" is an XPath expression.
     #
     ad_proc -public get_text {root xpath} {
         Get a text element from tdom via XPath expression.
@@ -1824,7 +1824,7 @@
 
     ad_proc -public non_empty {node selectors} {
 
-        Test if provided selectors return non-empty results
+        Test if provided selectors return nonempty results
 
     } {
         #