Index: openacs-4/packages/acs-templating/tcl/test/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/util-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/acs-templating/tcl/test/util-procs.tcl	31 Mar 2022 12:59:29 -0000	1.1.2.4
+++ openacs-4/packages/acs-templating/tcl/test/util-procs.tcl	31 Mar 2022 16:23:44 -0000	1.1.2.5
@@ -14,6 +14,11 @@
     template::util::get_opts
 } get_opts {
     Test template::util::get_opts
+
+    This test exposes a documented behavior that might not be obvious
+    to the user: when an argument is specified with its value, and the
+    latter is something starting with a "-" sign, the argument will be
+    treated as a flag and its value set to 1.
 } {
     set testcases {
         {-datatype integer -widget hidden -value 0}
@@ -23,7 +28,7 @@
         {datatype text label {       OK       } widget submit}
 
         {-datatype text -widget textarea -optional -label #acs-subsite.Caption# -value {-test} -html {rows "6" cols "50"}}
-        {label "#acs-subsite.Caption#" widget textarea datatype text html {rows "6" cols "50"} value {-test} optional 1}
+        {label "#acs-subsite.Caption#" widget textarea datatype text html {rows "6" cols "50"} value 1 test 1 optional 1}
     }
 
     foreach {input output} $testcases {