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 -N -r1.44 -r1.45
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	1 Feb 2007 09:00:35 -0000	1.44
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	19 Feb 2007 10:03:35 -0000	1.45
@@ -712,8 +712,9 @@
       set revision_id [db_nextval acs_object_id_seq]
 
       if {$name eq ""} {
-	# we have an anonymous item, use a unique value for the name
-	set name $revision_id
+	# we have an autonamed item, use a unique value for the name
+	set name [expr {[my exists __autoname_prefix] ? 
+                        "[my set __autoname_prefix]$revision_id" : $revision_id}]
       }
 
       set item_id [db_string content_item__new \
@@ -876,6 +877,7 @@
   CrCache instproc delete {-item_id} {
     next
     ns_cache flush xotcl_object_cache ::$item_id
+    # we should probably flush as well cached revisions
   }
 
   Class CrCache::Item