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.8 -r1.9
--- openacs-4/packages/news/tcl/test/news-db-test-init.tcl	4 Aug 2005 02:11:48 -0000	1.8
+++ openacs-4/packages/news/tcl/test/news-db-test-init.tcl	8 Nov 2010 11:44:42 -0000	1.9
@@ -135,9 +135,7 @@
 } {
     aa_export_vars {_news_cr_root_folder_id _news_cr_news_root_folder_id}
     
-    set _news_cr_root_folder_id [db_string get-cr-root-folder {
-        select content_item.get_root_folder from dual
-    }]
+    set _news_cr_root_folder_id [content::item::get_root_folder]
     set p_parent_id $_news_cr_root_folder_id
     set _news_cr_news_root_folder_id [db_string get-cr-news-root-folder {
         select item_id