Index: openacs-4/packages/assessment/tcl/as-item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-form-procs.tcl,v
diff -u -r1.19 -r1.19.2.1
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	7 Aug 2017 23:48:03 -0000	1.19
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	29 Nov 2019 13:49:34 -0000	1.19.2.1
@@ -21,7 +21,7 @@
 
     Add items to a form. The form values are stored in response_to_item.item_id
 } {
-    randomInit [randomRange 20000]
+    util::random_init [util::random_range 20000]
     set element_name "response_to_item.$item_id"
     array set item [as::item::item_data -as_item_id $item_id]