Index: openacs-4/packages/logger/tcl/test/logger-test-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/test/logger-test-init.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/logger/tcl/test/logger-test-init.tcl	28 Aug 2003 09:45:30 -0000	1.8
+++ openacs-4/packages/logger/tcl/test/logger-test-init.tcl	16 Jan 2004 02:47:32 -0000	1.9
@@ -50,9 +50,9 @@
         
 
         # Create a package
-        # Using the old depreceated proc here because apm_package_instance_new have different
-        # arg lists on cvs head and 4.6 branch
-        set package_id [apm_package_create_instance $package_name [ad_conn package_id] logger]
+        set package_id [apm_package_instance_new \
+                            -package_key logger \
+                            -instance_name $package_name]
 
         # Create a project in that package
         logger::util::set_vars_from_ad_conn {creation_user creation_ip}