Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.68 -r1.69
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	24 May 2007 08:56:33 -0000	1.68
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	25 May 2007 11:49:13 -0000	1.69
@@ -460,8 +460,8 @@
     Delete a content item from the content repository.
     @param item_id id of the item to be deleted
   } {
-    #::xo::db::CONTENT_ITEM DELETE {item_id}
-    ::xo::db::content_item delete -item_id $item_id
+    #::xo::db::content_item delete -item_id $item_id
+    ::xo::db::content_item del -item_id $item_id
   }
 
   CrClass instproc object_types {