Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/workflow/tcl/role-procs.tcl	17 Dec 2003 14:02:41 -0000	1.15
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	13 Jan 2004 12:36:47 -0000	1.16
@@ -257,12 +257,6 @@
         }
     }
 
-    if { !$internal_p } {
-        # Flush the workflow cache, as changing an role changes the entire workflow
-        # e.g. initial_role_p, enabled_in_states.
-        workflow::flush_cache -workflow_id $workflow_id
-    }
-
     return $role_id
 }