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"
Index: openacs-4/packages/xowiki/tcl/notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/notification-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/xowiki/tcl/notification-procs.tcl	6 Nov 2008 20:53:45 -0000	1.11
+++ openacs-4/packages/xowiki/tcl/notification-procs.tcl	19 Mar 2009 21:49:14 -0000	1.12
@@ -120,7 +120,7 @@
 
     set state [expr {[$page set last_modified] eq [$page set creation_date] ? "New" : "Updated"}]
     set instance_name [::$package_id instance_name]
-    
+
     #ns_log notice "--n per directory [$page set title] ($state)"
     notification::new \
         -type_id [notification::type::get_type_id -short_name xowiki_notif] \
@@ -129,7 +129,7 @@
         -notif_subject "\[$instance_name\] [$page set title] ($state)" \
         -notif_text $text \
         -notif_html $html \
-        -notif_user [$page set creation_user]
+        -notif_user [expr {[$page exists modifying_user] ? [$page set modifying_user] :  [$page set creation_user]}]
 
     #ns_log notice "--n find categories [$page set title] ($state)"