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 -N -r1.189.2.14 -r1.189.2.15
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	25 Apr 2019 19:24:24 -0000	1.189.2.14
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 May 2019 11:20:07 -0000	1.189.2.15
@@ -2982,7 +2982,7 @@
 } {
     Generates a random string made of numbers and letters
 } {
-    return [string range [sec_random_token] 0 $length]
+    return [string range [sec_random_token] 0 $length-1]
 }
 
 ad_proc -public with_finally {