Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	13 Jan 2003 22:55:55 -0000	1.21
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	14 Jan 2003 12:17:05 -0000	1.22
@@ -503,7 +503,7 @@
 </blockquote></pre>"
 	return 0
     }
-    if {![string compare $package_type "apm_service"] && ![string compare $singleton_p "t"]} {
+    if { [string equal $package_type "apm_service"] && [string equal $singleton_p "t"]} {
 	# This is a singleton package.  Instantiate it automatically.
 	if {[catch {
 	    db_exec_plsql package_instantiate_mount {
@@ -525,8 +525,8 @@
 	}
     }
 
-    # Load Tcl libraries and xql queries so that restart is not necessary
-    apm_load_package -force_reload_p 1 $package_key
+    # Load Tcl libraries and xql queries so that restart is not necessary    
+    apm_load_package -force_reload -load_tests=[apm_load_tests_p] $package_key
 
     return $version_id
 }