Index: openacs-4/packages/bug-tracker/lib/nav-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/lib/nav-bar.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/bug-tracker/lib/nav-bar.tcl	24 Sep 2003 15:14:10 -0000	1.8
+++ openacs-4/packages/bug-tracker/lib/nav-bar.tcl	26 Sep 2003 08:10:35 -0000	1.9
@@ -61,7 +61,7 @@
 }
 
 if { $patches_p } {
-    multirow append links "Patches" "[ad_conn package_url]patch-list"
+    multirow append links "Patches" [export_vars -no_empty -base "[ad_conn package_url]patch-list" { { status open } { apply_to_version {[bug_tracker::conn current_version_id]} } }]
 
     if { $create_p } {
         multirow append links "New Patch" "[ad_conn package_url]patch-add"