Index: openacs-4/packages/workflow/tcl/case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v
diff -u -r1.37.2.3 -r1.37.2.4
--- openacs-4/packages/workflow/tcl/case-procs.tcl	30 Nov 2005 19:29:25 -0000	1.37.2.3
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	3 Dec 2005 00:34:04 -0000	1.37.2.4
@@ -1819,7 +1819,7 @@
                                -workflow_id $case(workflow_id) \
                                -case_id $case_id]
 
-        if { ![empty_string_p $object_id] && ($type eq "workflow" || ![empty_string_p $subset($type)])} {
+        if { ![empty_string_p $object_id] && ($type eq "workflow" || ![empty_string_p $subset($type)] || $type eq "workflow_case")} {
                 set notified_list [concat $notified_list [notification::new \
                                                               -type_id [notification::type::get_type_id -short_name $type] \
                                                               -object_id $object_id \