Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/xotcl-core/xotcl-core.info	29 Dec 2006 11:04:16 -0000	1.22
+++ openacs-4/packages/xotcl-core/xotcl-core.info	19 Feb 2007 10:03:35 -0000	1.23
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.46" url="http://media.wu-wien.ac.at/download/xotcl-core-0.46.apm">
+    <version name="0.47" url="http://media.wu-wien.ac.at/download/xotcl-core-0.47.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2006-12-29</release-date>
+        <release-date>2007-02-19</release-date>
         <description format="text/html">This component contains some core functionality for OACS
 applications using XOTcl. It includes
 XOTcl thread handling for OACS (supporting persistent and
@@ -34,7 +34,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.46"/>
+        <provides url="xotcl-core" version="0.47"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl::before_install_callback"/>
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.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