Index: openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl,v
diff -u -r1.4.2.16 -r1.4.2.17
--- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	18 Nov 2019 13:17:42 -0000	1.4.2.16
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	9 Dec 2019 11:05:18 -0000	1.4.2.17
@@ -215,7 +215,7 @@
         aa_true "Hints are printed in parenthesys, the proc type belongs to the hints" \
             [regexp "^\(.*$proc_type.*\)$" [string trim [api_proc_pretty_name -proc_type $proc_type -hints_only $proc]]]
 
-        aa_true "-include_debug_controls prints out a form when XoTcl is installed" \
+        aa_true "-include_debug_controls prints out a form when XOTcl is installed" \
             {[info commands ::xo::api] eq "" || [regexp {^.*<form[^>]*>.*</form[^>]*.*$} [api_proc_pretty_name -include_debug_controls $proc]]}
 
         aa_true "-link will put the proc URL somewhere" \
@@ -347,7 +347,7 @@
         aa_log "Fetching a few commands to test..."
         set commands [list]
         foreach command [info commands] {
-            # Skip XoTcl methods
+            # Skip XOTcl methods
             if {[info commands ::xotcl::Object] ne "" && [::xotcl::Object isobject [lindex $command 0]]} {
                 continue
             }
@@ -360,7 +360,7 @@
             }
         }
         if {[info commands ::xotcl::Object] ne ""} {
-            aa_log "Adding a few XoTcl classes"
+            aa_log "Adding a few XOTcl classes"
             lappend commands {*}[lrange [::xotcl::Object info instances] 0 100]
         }
         foreach script $commands {