Index: openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl	15 Feb 2004 10:56:09 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl	1 Mar 2005 00:01:22 -0000	1.3
@@ -29,13 +29,13 @@
             set children [cr::keyword::get_children -parent_id $new_keyword_id ]
             aa_true "child is returned" [string match "*$new_keyword_id_2*" $children]
 
-            set delete_result [cr::keyword::delete -keyword_id $new_keyword_id_2]
+            set delete_result [content::keyword::delete -keyword_id $new_keyword_id_2]
 
             set children_after_delete [cr::keyword::get_children -parent_id $new_keyword_id ]
             aa_true "child is not returned after deletion" ![string match "*$new_keyword_id_2*" $children_after_delete]
 
             # teardown doesn't seem to eliminate this:
-            set delete_result [cr::keyword::delete -keyword_id $new_keyword_id]
+            set delete_result [content::keyword::delete -keyword_id $new_keyword_id]
 
             # would test that delete works but there's no relevant function in the API 
         }