Index: openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl	28 Dec 2004 02:02:57 -0000	1.1.2.1
+++ openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl	28 Dec 2004 23:54:00 -0000	1.1.2.2
@@ -15,21 +15,25 @@
             if { [catch {array set site_node [site_node::get -url /bug-tracker]} errmsg] } {
                 aa_error "Can't find bug-tracker at /bug-tracker: $errmsg"
             } else {
-                set package_id $site_node(package_id)
+
+                # Don't believe the bug-tracker Tcl API that misleads you into
+                # thinking that you can explicitly pass package_id as a parameter to
+                # various procs.  The vile bug_tracker::conn proc guarantees this
+                # does not work.
+                set old_package_id [ad_conn package_id]
+                ad_conn -set package_id $site_node(package_id)
+
                 array set default_configs [bug_tracker::get_default_configurations]
                 if { ![info exists default_configs(Bug-Tracker)] } {
                     aa_error "Can't find default bug-tracker configuration"
                 } else {
                     array set config $default_configs(Bug-Tracker)
-                    bug_tracker::delete_all_project_keywords -package_id $package_id
-                    bug_tracker::install_keywords_setup \
-                        -package_id $package_id \
-                        -spec $config(categories)
-                    bug_tracker::install_parameters_setup \
-                        -package_id $package_id \
-                        -spec $config(parameters)
+                    bug_tracker::delete_all_project_keywords 
+                    bug_tracker::install_keywords_setup -spec $config(categories)
+                    bug_tracker::install_parameters_setup -spec $config(parameters)
                     aa_equals "Bug tracker project creation test" [db_string count_projects {}] 1
                 }
+                ad_conn -set package_id $old_package_id
             }
         }
 }