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.9 -r1.30.2.10
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	29 Jul 2014 10:55:06 -0000	1.30.2.9
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	31 Jul 2014 09:18:27 -0000	1.30.2.10
@@ -1532,9 +1532,9 @@
     @creation-date 25 July 2000
 } {
 
-    # First simple a quick check avoiding the slow regexp
-    if {[string is integer -strict $value]} {
-	return [expr {$value >= 0}]
+    # First a simple quick check to avoid the slow regexp
+    if {[string is integer -strict $value] && $value >= 0} {
+	return 1
     }
 
     # Check with leading zeros, but no "-" allowed, so it must be positive
@@ -1543,8 +1543,9 @@
 	return 1
       }
     }
-  ad_complain "[_ acs-tcl.lt_name_is_not_a_natural]"
-  return 0
+
+    ad_complain "[_ acs-tcl.lt_name_is_not_a_natural]"
+    return 0
 }
 
 ad_page_contract_filter range { name value range } {