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.107 -r1.108
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	17 Apr 2008 11:24:05 -0000	1.107
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	5 May 2008 13:33:12 -0000	1.108
@@ -4114,6 +4114,16 @@
     return $result
 }
 
+ad_proc -public util::random_list_element {
+    list
+} {
+    Returns a random element from the list.
+} {
+    set len [llength $list]
+    set idx [expr {int(rand() * $len)}]
+    return [lindex $list $idx]
+}
+
 ad_proc -public util::age_pretty {
     -timestamp_ansi:required
     -sysdate_ansi:required