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.1 -r1.2
--- openacs-4/packages/bug-tracker/lib/nav-bar.tcl	3 May 2002 16:29:59 -0000	1.1
+++ openacs-4/packages/bug-tracker/lib/nav-bar.tcl	29 Aug 2002 15:15:10 -0000	1.2
@@ -9,6 +9,7 @@
 
 set package_id [ad_conn package_id]
 set package_url [ad_conn package_url]
+set component_id [bug_tracker::conn component_id]
 
 set admin_p [ad_permission_p $package_id admin]
 
@@ -17,7 +18,7 @@
 multirow append links "List" "[ad_conn package_url]"
 
 if { [ad_permission_p [ad_conn package_id] create] } {
-    multirow append links "New Bug" "[ad_conn package_url]bug-add"
+    multirow append links "New Bug" "[ad_conn package_url]bug-add[ad_decode $component_id "" "" "?[export_vars { component_id }]"]"
 }
 
 if { [ad_conn user_id] != 0 } {