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.2 -r1.37.2.3
--- openacs-4/packages/workflow/tcl/case-procs.tcl	29 Nov 2005 22:28:24 -0000	1.37.2.2
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	30 Nov 2005 19:29:25 -0000	1.37.2.3
@@ -1751,8 +1751,15 @@
     # This takes deputies into account
 
 #XXXXX Verify this ... probably wrong
-    set assignee_list [db_list enabled_action_assignees {}]
-
+    set assigned_role_id [workflow::action::get_assigned_role -action_id $action_id]
+    set assignee_list [list]
+    foreach assignee_array [workflow::case::role::get_assignees \
+                          -case_id $case_id \
+                          -role_id $assigned_role_id] {
+        array set ass $assignee_array
+        lappend assignee_list $ass(party_id)
+    }
+        
     # List of users who play some role in this case
     # This takes deputies into account
     set case_player_list [db_list case_players {}]