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.28 -r1.29
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	10 Oct 2008 23:50:26 -0000	1.28
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	19 Mar 2009 21:49:14 -0000	1.29
@@ -983,6 +983,11 @@
         # and let CrCache save it ...... TODO: is this still needed? comment out for testing
         #set revision_id $old_revision_id
       }
+      my set modifying_user $creation_user
+      my db_1row [my qn get_dates] {
+        select last_modified 
+        from acs_objects where object_id = :revision_id
+      }
     }
     return $item_id
   }
@@ -1294,6 +1299,7 @@
         if {$item_id == 0} break ;# don't cache
         return $item_id
       }]
+      
       break
     }
     #my msg "lookup $parent_id-$name -> item_id=$item_id"