Index: openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/00-icanuse-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl	14 Jan 2021 14:09:03 -0000	1.1.2.1
+++ openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl	14 Jan 2021 14:16:04 -0000	1.1.2.2
@@ -41,9 +41,9 @@
         }
 
         foreach flag $flags {
-            aa_true "string flag '$flag' is recognized" [acs::cmd_has_subcommand string $flag]
+            aa_true "string subcommand '$flag' is recognized" [acs::cmd_has_subcommand string $flag]
         }
 
         set flag [ad_generate_random_string]
-        aa_false "string has no flag called '$flag'" [acs::cmd_has_subcommand string $flag]
+        aa_false "string has no subcommand called '$flag'" [acs::cmd_has_subcommand string $flag]
     }