Index: openacs-4/packages/bug-tracker/www/patch.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/patch.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/bug-tracker/www/patch.tcl	25 May 2016 07:38:02 -0000	1.28
+++ openacs-4/packages/bug-tracker/www/patch.tcl	29 May 2016 10:50:02 -0000	1.29
@@ -5,7 +5,7 @@
     @date 2002-09-04
     @cvs-id $Id$
 } {
-    patch_number:integer,notnull
+    patch_number:naturalnum,notnull
     mode:word,optional
     cancel_edit:optional    
     edit:optional
@@ -16,6 +16,12 @@
     comment:optional
     download:boolean,optional
     {desc_format "text/html"}
+} -validate {
+    valid_patch_number -requires patch_number:integer {
+	if {$patch_number > 2**31} {
+	    ad_complain "patch number out of range"
+	}
+    }
 }
 
 # Assert read permission (should this check be in the request processor?)