Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v diff -u -N -r1.36.2.20 -r1.36.2.21 --- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 14 May 2016 11:14:50 -0000 1.36.2.20 +++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 18 May 2016 07:08:05 -0000 1.36.2.21 @@ -1663,7 +1663,13 @@ ad_script_abort } lassign $range min max - if { $value < $min || $value > $max } { + # + # Strip leading zeros from value to avoid octal number + # confusions. + # + regexp {^(0*)([1-9][0-9]*|0)$} $value . zeros value + + if { ![string is integer -strict $value] || $value < $min || $value > $max } { ad_complain [_ acs-tcl.lt_name_is_not_in_the_ra] return 0 }