Index: openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl	3 Sep 2024 15:37:34 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/00-icanuse-procs.tcl	1 Oct 2024 12:44:32 -0000	1.3
@@ -15,8 +15,7 @@
 
     } {
         aa_section "Test a plain Tcl command"
-        set flags {
-            bytelength
+        set subcmds {
             compare
             equal
             first
@@ -40,23 +39,23 @@
             wordstart
         }
 
-        foreach flag $flags {
-            aa_true "string subcommand '$flag' is recognized" [acs::cmd_has_subcommand string $flag]
+        foreach subcmd $subcmds {
+            aa_true "string subcommand '$subcmd' is recognized" [acs::cmd_has_subcommand string $subcmd]
         }
 
-        set flag [ad_generate_random_string]
-        aa_false "string has no subcommand called '$flag'" [acs::cmd_has_subcommand string $flag]
+        set subcmd [ad_generate_random_string]
+        aa_false "string has no subcommand called '$subcmd'" [acs::cmd_has_subcommand string $subcmd]
 
         aa_section "Test NaviServer subcommands"
-        set flags {
+        set subcmds {
             get
             set
         }
-        foreach flag $flags {
-            aa_true "nsv_array subcommand '$flag' is recognized" \
-                [acs::cmd_has_subcommand nsv_array $flag]
+        foreach subcmd $subcmds {
+            aa_true "nsv_array subcommand '$subcmd' is recognized" \
+                [acs::cmd_has_subcommand nsv_array $subcmd]
         }
-        set flag [ad_generate_random_string]
-        aa_false "nsv_array has no subcommand called '$flag'" \
-            [acs::cmd_has_subcommand nsv_array $flag]
+        set subcmd [ad_generate_random_string]
+        aa_false "nsv_array has no subcommand called '$subcmd'" \
+            [acs::cmd_has_subcommand nsv_array $subcmd]
     }