Index: openacs-4/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/bug-tracker/www/bug.tcl	8 May 2016 13:06:06 -0000	1.51
+++ openacs-4/packages/bug-tracker/www/bug.tcl	18 May 2016 07:15:59 -0000	1.52
@@ -7,8 +7,14 @@
 } [bug_tracker::get_page_variables {
     bug_number:integer,notnull
     {user_agent_p:boolean,notnull false}
-    {show_patch_status:word open}
-}]
+    {show_patch_status:word,notnull open}
+}] -validate {
+    check_show_patch_status -requires show_patch_status {
+	if {$show_patch_status ni {"open" "all"}} {
+	    ad_complain "invalid value for show_patch_status"
+	}
+    }
+}
 
 #####
 #