Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -N -r1.75.2.24 -r1.75.2.25
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	22 Nov 2021 11:08:35 -0000	1.75.2.24
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	22 Nov 2021 11:56:57 -0000	1.75.2.25
@@ -567,7 +567,7 @@
     # cases, where multiplicity is specified. This means effectively
     # that the default multiplicity is "0..1".
     #
-    if {[info exists constraint] && ([string first . constraint] || $value ne "")} {
+    if {[info exists constraint] && ([string first . $constraint] > -1 || $value ne "")} {
       try {
         nsf::parseargs $name:$constraint [list $value]