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.13 -r1.140.2.14
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	20 Oct 2015 10:43:42 -0000	1.140.2.13
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	15 Nov 2015 08:31:29 -0000	1.140.2.14
@@ -453,7 +453,8 @@
 
     @return integer
 } {
-    return [expr {int([random] * $range)}]
+    incr range
+    return [expr {int([random] * $range) % $range}]
 }
 
 ad_proc -public db_html_select_options {