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.18 -r1.19
--- openacs-4/packages/workflow/tcl/case-procs.tcl	19 Dec 2003 14:26:56 -0000	1.18
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	5 Jan 2004 12:20:20 -0000	1.19
@@ -272,8 +272,11 @@
 } {
     set role_ids [db_list select_unassigned_roles {
         select r.role_id
-        from   workflow_roles r
-        where  not exists (select 1
+        from   workflow_roles r,
+               workflow_cases c
+        where  c.case_id = :case_id
+        and    r.workflow_id = c.workflow_id
+        and    not exists (select 1
                            from   workflow_case_role_user_map m
                            where  m.role_id = r.role_id
                            and    m.case_id = :case_id)