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.35 -r1.36
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 Dec 2006 22:05:24 -0000	1.35
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	10 Dec 2006 19:48:16 -0000	1.36
@@ -617,7 +617,7 @@
     set creation_user [expr {[info exists creation_user_id] ?
                              $get_creation_user_id :
                              [my current_user_id]}]
-
+    set old_revision_id [my set revision_id]
     [self class] instvar insert_view_operation
     db_transaction {
       [my info class] instvar storage_type
@@ -637,6 +637,10 @@
 	} else {
 	  db_0or1row make_live {select content_item__set_live_revision(:revision_id)}
 	}
+      } else {
+        # if we do not make the revision live, use the old revision_id,
+        # and let CrCache save it
+        set revision_id $old_revision_id
       }
     }
     return $item_id