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 -N -r1.284.2.97 -r1.284.2.98
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	7 Apr 2020 07:08:56 -0000	1.284.2.97
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Apr 2020 21:52:48 -0000	1.284.2.98
@@ -3351,7 +3351,10 @@
     # then the shuffling is stable for this seed.
     #
     if {${:shuffle_kind} ne "always"} {
-      set shuffled [::xowiki::randomized_indices -seed [xo::cc user_id] $length]
+      set p [${:object} property position]
+      set seeds [${:object} property seeds]
+      set seed [expr {$p ne "" && $seeds ne "" ? [lindex $seeds $p] : [xo::cc user_id]}]
+      set shuffled [::xowiki::randomized_indices -seed $seed $length]
     } else {
       set shuffled [::xowiki::randomized_indices $length]
     }