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 -r1.53 -r1.54
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	6 Jun 2018 11:11:26 -0000	1.53
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	11 Jun 2018 09:14:55 -0000	1.54
@@ -1662,7 +1662,7 @@
     if { [regexp {^(-)(.*)$} $value match sign rest] } {
         # Trim the value for any leading zeros
         set value $sign[util::trim_leading_zeros $rest]
-        # the string might be still to large, so check again...
+        # the string might be still too large, so check again...
         if {[string is integer -strict $value]} {
             return 1
         }