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.6 -r1.7
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	31 Dec 2005 16:36:09 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	19 Jan 2006 22:57:37 -0000	1.7
@@ -507,7 +507,7 @@
     }
 
     db_transaction {
-      $__class instvar mime_type storage_type object_type
+      $__class instvar storage_type object_type
       $__class folder_type -folder_id $parent_id register
       set item_id [db_exec_plsql note_insert "
 	select content_item__new(:title,$parent_id,null,null,null,null,null,null,
@@ -534,7 +534,7 @@
     instance variable.
   } {
     # delegate deletion to the class
-    [my info class] delete [my set instance_id]
+    [my info class] delete [my set item_id]
   }
 
   #
@@ -875,3 +875,4 @@
   namespace export CrItem
 }
 namespace import -force ::Generic::*
+