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)"