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.44 -r1.45
--- openacs-4/packages/workflow/tcl/case-procs.tcl	7 Oct 2010 00:39:25 -0000	1.44
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	23 Feb 2011 14:22:16 -0000	1.45
@@ -1265,11 +1265,13 @@
 } {
     set assignees [workflow::case::role::get_assignees -case_id $case_id -role_id $role_id]
     foreach assignee $assignees {
-        foreach {party_id email name} $assignee {
+        array set elm $assignee
+        if { [exists_and_not_null elm(party_id)] } {
             callback workflow::case::role::after_unassign \
                 -case_id $case_id \
-                -party_id $party_id
+                -party_id $elm(party_id)
         }
+        array unset elm
     }
 
     db_dml delete_assignees {}