Index: openacs-4/packages/xowiki/tcl/repeat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/repeat-procs.tcl,v
diff -u -N -r1.14.2.6 -r1.14.2.7
--- openacs-4/packages/xowiki/tcl/repeat-procs.tcl	4 Jul 2019 17:51:39 -0000	1.14.2.6
+++ openacs-4/packages/xowiki/tcl/repeat-procs.tcl	27 Oct 2019 08:38:07 -0000	1.14.2.7
@@ -121,7 +121,7 @@
     #
     # Deactivate template item
     #
-    set componentList [:components]
+    set componentList ${:components}
     if {[llength $componentList] > 0} {
       [lindex $componentList 0] set_disabled true
       [lindex $componentList 0] set_is_repeat_template true
@@ -194,7 +194,7 @@
     # Trim trailing values identical to default.
     # Trimming the components list seems sufficient.
     set count [:count_values [:value]]
-    set :components [lrange [:components] 0 $count]
+    set :components [lrange ${:components} 0 $count]
   }
 
   repeatContainer instproc count_values {values} {
@@ -203,7 +203,7 @@
     if {![:required]} {set highestCount [:min]}
     # The first pair is the default from the template field (.0)
     set default [lindex $values 1]
-    foreach f [lrange [:components] 1 end] {name value} [lrange $values 2 end] {
+    foreach f [lrange ${:components} 1 end] {name value} [lrange $values 2 end] {
       if {[$f required] || ($value ne "" && ![$f same_value $value $default])} {set highestCount $count}
       incr count
     }
@@ -232,7 +232,7 @@
       set containerIsDisabled [expr {[info exists :disabled] && [:disabled] != "false"}]
       set containerIsPrototype [string match "*.0*" ${:name}]
       set isPrototypeElement 0
-      foreach c [:components] {
+      foreach c ${:components} {
         set atts [list class $CSSclass]
         lappend atts data-repeat $clientData
         if {$i == 0 || $i >= $nrItems} {
@@ -277,7 +277,7 @@
   }
 
   repeatContainer instproc validate {obj} {
-    foreach c [lrange [:components] 1 [:count_values [:value]]] {
+    foreach c [lrange ${:components} 1 [:count_values [:value]]] {
       set result [$c validate $obj]
       if {$result ne ""} {
         return $result