Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.284.2.165 -r1.284.2.166
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	27 Jul 2021 12:09:07 -0000	1.284.2.165
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	2 Aug 2021 21:23:19 -0000	1.284.2.166
@@ -3137,7 +3137,7 @@
       set :editor "none"
       return ${:editor}
     }
-    
+
     set editor_class [self class]::$editor
     if {$editor ne "" && ![:hasclass $editor_class]} {
       if {![:isclass $editor_class]} {
@@ -3996,15 +3996,17 @@
       #
       if {![:exists test_item_in_position]} {
         set :test_item_in_position [${:object} property position]
+        #ns_log notice "${:name} randomized_indices get position ${:test_item_in_position} from property"
+      } else {
+        #ns_log notice "${:name} randomized_indices position ${:test_item_in_position} already set"
       }
       set seeds [${:object} property seeds]
       set seed [expr {$seeds ne "" && ${:test_item_in_position} ne ""
                       ? [lindex $seeds ${:test_item_in_position}]
                       : [xo::cc user_id]}]
       set shuffled [::xowiki::randomized_indices -seed $seed $length]
       #ns_log notice "${:name} randomized_indices for seed $seed (user_id [xo::cc user_id])" \
-          "(${:test_item_in_position} - $seeds): $shuffled" \
-          "(inp [:exists test_item_in_position])"
+          "(${:test_item_in_position} - $seeds): $shuffled"
     } else {
       set shuffled [::xowiki::randomized_indices $length]
     }
@@ -4560,6 +4562,7 @@
   Class create text_fields -superclass {CompoundField ShuffleField} -parameter {
     {descriptions ""}
     {paste:boolean true}
+    {substvalues}
   } -ad_doc {
 
     Provide multiple text and short text entries. This field is a
@@ -5629,8 +5632,7 @@
       }
     }
     #:msg "guess mime_type of $entry_name = [::xowiki::guesstype $entry_name]"
-    set import_file [ad_tmpnam]
-    ::xo::write_file $import_file $img
+    ::xo::write_tmp_file import_file $img
     set file_object [::xowiki::File new -destroy_on_cleanup \
                          -title $entry_name \
                          -name $entry_name \