Index: openacs-4/packages/news/tcl/test/news-db-test-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/test/news-db-test-init.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/news/tcl/test/news-db-test-init.tcl	27 Oct 2003 15:52:46 -0000	1.4
+++ openacs-4/packages/news/tcl/test/news-db-test-init.tcl	26 Feb 2005 17:52:22 -0000	1.5
@@ -63,8 +63,9 @@
     # Create the _test directory if it doesn't already exist.
 aa_log "here"
     if {$_test_node_id == -1} {
-      set _test_node_id [site_node_create $_root_node_id "_test"]
-    }
+        set _test_node_id [site_node::new \
+                               -name "_test" \
+                               -parent_id $_root_node_id ]
     # If an old news package exists, delete it.
     if {$_news_node_id != -1} {
       aa_log "Deleting existing node instance."
@@ -81,8 +82,12 @@
     }
 
     # Mount the new news package and lookup the new node_id.
-    set _news_package_id [site_node_mount_application $_test_node_id "news" \
-                                                      "news" "News test"]
+    set _news_package_id [site_node::instantiate_and_mount \
+                -parent_node_id $_test_node_id \
+                -node_name news \
+                -package_name "News test" \
+                -package_key news]
+
     set _news_node_id [site_node_id "/_test/news/"]
   } _news_package_mounted_err]} {
     set _news_node_id -1