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.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 {