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.15 -r1.16
--- openacs-4/packages/xowiki/tcl/notification-procs.tcl	15 Jul 2010 23:55:31 -0000	1.15
+++ openacs-4/packages/xowiki/tcl/notification-procs.tcl	28 Sep 2011 08:23:39 -0000	1.16
@@ -121,6 +121,8 @@
     set state [expr {[$page set last_modified] eq [$page set creation_date] ? "New" : "Updated"}]
     set instance_name [::$package_id instance_name]
 
+    set notif_user_id [expr {[$page exists modifying_user] ? [$page set modifying_user] :  [$page set creation_user]}]
+
     #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 +131,7 @@
         -notif_subject "\[$instance_name\] [$page set title] ($state)" \
         -notif_text $text \
         -notif_html $html \
-        -notif_user [expr {[$page exists modifying_user] ? [$page set modifying_user] :  [$page set creation_user]}]
+        -notif_user $notif_user_id
 
     #ns_log notice "--n find categories [$page set title] ($state)"
 
@@ -152,7 +154,7 @@
             -notif_subject "\[$instance_name\] $label($level): [$page set title] ($state)" \
             -notif_text $text \
             -notif_html $html \
-            -notif_user [$page set creation_user]
+	    -notif_user $notif_user_id
       }
     }
   }