Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -N -r1.7.2.2 -r1.7.2.3
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	24 Jun 2019 11:38:40 -0000	1.7.2.2
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	4 Jul 2019 18:01:25 -0000	1.7.2.3
@@ -227,8 +227,8 @@
             "<tr><td class='selection'><input type='checkbox' id='$input_field_name' name='$input_field_name' value='$input_field_name'/></td>\n" \
             "<td class='value'><label for='$input_field_name'>$value(text)</label></td></tr>\n"
       } else {
-        #:msg $correct_field_name,[:name],$input_field_name
-        set correct [expr {"[:name].$input_field_name" eq $correct_field_name}]
+        #:msg $correct_field_name,${:name},$input_field_name
+        set correct [expr {"${:name}.$input_field_name" eq $correct_field_name}]
         append form \
             "<tr><td class='selection'><input id='$input_field_name' type='radio' name='radio' value='$input_field_name' /></td>\n" \
             "<td class='value'><label for='$input_field_name'>$value</label></td></tr>\n"
@@ -307,10 +307,10 @@
       # We are in a single choice item; provide for editing a single
       # radio group spanning all entries.  Use as name for grouping
       # the form-field name minus the last segment.
-      regsub -all {[.][^.]+$} [:name] "" groupname
+      regsub -all {[.][^.]+$} ${:name} "" groupname
       :create_components [subst {
         {text  {richtext,editor=ckeditor4,$text_config}}
-        {correct {radio,label=#xowf.correct#,forced_name=$groupname.correct,options={"" [:name]}}}
+        {correct {radio,label=#xowf.correct#,forced_name=$groupname.correct,options={"" ${:name}}}}
         $feedback_fields
       }]
     }