Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.33.2.1 -r1.33.2.2
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	19 Oct 2005 13:57:38 -0000	1.33.2.1
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	10 Nov 2005 16:14:27 -0000	1.33.2.2
@@ -1,3 +1,4 @@
+
 ##############################################################################
 #
 #   Copyright 2001, OpenACS, Peter Harper.
@@ -1019,8 +1020,6 @@
 namespace eval aa_test {}
 
 ad_proc -public aa_test::xml_report_dir {} {
-    returns the package parameter XMLReportDir.
-} {
     return [parameter::get -parameter XMLReportDir]
 }
 
@@ -1190,16 +1189,22 @@
     }
     set test(testcase_failure) [array get testcase_failure]
 }
+
 ad_proc -public aa_get_first_url {
     {-package_key:required}
 } {
   Procedure for geting the url of a mounted package with the package_key. It uses the first instance that it founds. This is usefull for tclwebtest tests.
 } {
 
-    db_1row first_url { *SQL* }
-        return $url
+    if {![db_0or1row first_url { *SQL* }]} {
+        site_node::instantiate_and_mount -package_key $package_key
+	db_1row first_url {*SQL*}
 }
 
+ return $url
+
+}
+
 ad_proc -public aa_display_result {
     {-response:required}
     {-explanation:required}