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.49 -r1.50
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	1 Oct 2003 15:45:42 -0000	1.49
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	2 Oct 2003 12:18:51 -0000	1.50
@@ -3957,7 +3957,7 @@
     return $result
 }
 
-ad_proc ad_generate_random_string {{length 8}} {
+ad_proc -public ad_generate_random_string {{length 8}} {
     Generates a random string made of numbers and letters
 } {
     return [string range [sec_random_token] 0 $length]