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.61.2.3 -r1.61.2.4 --- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 17 May 2020 13:39:44 -0000 1.61.2.3 +++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 17 May 2020 17:04:11 -0000 1.61.2.4 @@ -1655,7 +1655,7 @@ } { # # We can't really use "string is integer -strict", since it allows - # numbers, which are invalid for e.h. SQL... e.g. "0x40". + # numbers, which are invalid for e.g. SQL... e.g. "0x40". # ## First simple a quick check avoiding the slow regexp #if {[string is integer -strict $value]} { @@ -1683,7 +1683,7 @@ } { # We can't really use "string is integer -strict", since it allows - # numbers, which are invalid for e.h. SQL... e.g. "0x40". + # numbers, which are invalid for e.g. SQL... e.g. "0x40". # # First a simple quick check to avoid the slow regexp # if {[string is integer -strict $value] && $value >= 0} {