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.1 -r1.2
--- openacs-4/packages/news/tcl/test/news-db-test-init.tcl	4 Apr 2003 09:48:13 -0000	1.1
+++ openacs-4/packages/news/tcl/test/news-db-test-init.tcl	30 Sep 2003 12:10:08 -0000	1.2
@@ -74,7 +74,7 @@
         set p_package_id $_news_package_id
         db_exec_plsql package-delete {
           begin
-            apm_package.delete(:p_package_id);
+            apm_package.del(:p_package_id);
           end;
         }
       }
@@ -101,7 +101,7 @@
     set p_package_id $_news_package_id
     db_exec_plsql package-delete {
       begin
-        apm_package.delete(:p_package_id)
+        apm_package.del(:p_package_id)
     }
   }
 }
@@ -194,7 +194,7 @@
   aa_export_vars {p_item_id}
   db_exec_plsql item-delete {
     begin
-      news.delete(:p_item_id);
+      news.del(:p_item_id);
     end;
   }
 }