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.30.2.7 -r1.30.2.8
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	2 Oct 2013 22:55:56 -0000	1.30.2.7
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	26 Jul 2014 12:33:25 -0000	1.30.2.8
@@ -1507,14 +1507,14 @@
     @creation-date 25 July 2000
 } {
   # first simple a quick check avoiding the slow regexp
-  if {[string is integer $value]} {
+  if {[string is integer -strict $value]} {
     return 1
   }
   if { [regexp {^(-)?(0*)([1-9][0-9]*|0)$} $value match sign zeros value] } {
     # Trim the value for any leading zeros
     set value $sign$value
     # the string might be still to large, so check again...
-    if {[string is integer $value]} {
+    if {[string is integer -strict $value]} {
       return 1
     }
   }
@@ -1530,7 +1530,7 @@
     @creation-date 25 July 2000
 } {
     if { [regexp {^(0*)([1-9][0-9]*|0)$} $value match zeros value] } {
-      if {[string is integer $value]} {
+      if {[string is integer -strict $value]} {
 	return 1
       }
     }