Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.140.2.15 -r1.140.2.16
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	1 Dec 2015 11:10:01 -0000	1.140.2.15
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	1 Dec 2015 12:01:17 -0000	1.140.2.16
@@ -4103,7 +4103,7 @@
     set len [llength $list]
     set result [list]
     while { [llength $list] > 0 } {
-        set index [randomRange [llength $list]]
+        set index [randomRange [expr {[llength $list] - 1}]]
         lappend result [lindex $list $index]
         set list [lreplace $list $index $index]
     }