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 -N -r1.2 -r1.3
--- openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl	13 Jan 2005 13:56:17 -0000	1.2
+++ openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl	6 Apr 2010 02:01:05 -0000	1.3
@@ -12,24 +12,26 @@
     aa_run_with_teardown \
         -rollback \
         -test_code {
-            if { [catch {array set site_node [site_node::get -url /bug-tracker]} errmsg] } {
-                aa_error "Can't find bug-tracker at /bug-tracker: $errmsg"
+            set bt_package_id [lindex [apm_package_ids_from_key -package_key bug-tracker -mounted] 0]
+            if { $bt_package_id eq "" } {
+                aa_error "Can't find bug-tracker instance."
             } else {
 
                 # 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)
+                ad_conn -set package_id $bt_package_id
                 set package_id [ad_conn package_id]
                 set user_id [ad_conn user_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"
+                
+                if { ![info exists "default_configs(Bug Tracker)"] } {
+                    aa_error "Can't find default bug-tracker configuration"                    
                 } else {
-                    array set config $default_configs(Bug-Tracker)
+                    array set config "$default_configs(Bug Tracker)"
                     bug_tracker::delete_all_project_keywords 
                     bug_tracker::install_keywords_setup -spec $config(categories)
                     bug_tracker::install_parameters_setup -spec $config(parameters)