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.78 -r1.79
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	4 Jul 2007 09:22:33 -0000	1.78
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	5 Jul 2007 10:51:03 -0000	1.79
@@ -936,7 +936,7 @@
     instance variable.
   } {
     # delegate deletion to the class
-    [my info class] delete [my set item_id]
+    [my info class] delete -item_id [my set item_id]
   }
 
   ::Generic::CrItem instproc revisions {} {