Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 Oct 2008 10:57:25 -0000	1.27
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	10 Oct 2008 23:50:26 -0000	1.28
@@ -940,7 +940,7 @@
     set creation_user [expr {[info exists modifying_user] ?
                              $modifying_user :
                              [my current_user_id]}]
-    set old_revision_id [my set revision_id]
+    #set old_revision_id [my set revision_id]
 
     foreach {__slot_name __slot} [[my info class] array get db_slot] {
       if {