Index: openacs-4/packages/workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/workflow/tcl/workflow-procs.tcl	28 Aug 2003 09:41:59 -0000	1.8
+++ openacs-4/packages/workflow/tcl/workflow-procs.tcl	1 Sep 2003 13:43:51 -0000	1.9
@@ -235,6 +235,12 @@
     workflow::role::flush_cache -workflow_id $workflow_id
     workflow::action::flush_cache -workflow_id $workflow_id
     workflow::state::flush_cache -workflow_id $workflow_id
+
+    # Flush all workflow cases from the cache. We are flushing more than needed here
+    # but this approach seems easier and faster than looping over a potentially big number
+    # of cases mapped to the workflow in the database, only a few of which may actually be 
+    # cached and need flushing
+    workflow::case::flush_cache
 }
 
 ad_proc -private workflow::cache_timeout {} {