Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -N -r1.28.2.43 -r1.28.2.44
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	1 Oct 2020 15:59:38 -0000	1.28.2.43
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	21 Oct 2020 17:47:06 -0000	1.28.2.44
@@ -251,6 +251,24 @@
       }
     }
 
+    WorkflowContainer instproc init {} {
+      set :creation_time [clock seconds]
+      ::xo::add_cleanup [self] [list [self] cleanup]
+      next
+    }
+
+    WorkflowContainer instproc cleanup {} {
+      #
+      #  Keep workflow container 10 minutes in the per-thread cache.
+      #
+      if {[clock seconds] - ${:creation_time} > 600} {
+        ns_log notice "======================== WorkflowContainer [self] self destroys"
+        ::xo::remove_cleanup [self]
+        :destroy
+      }
+    }
+
+
     WorkflowContainer instproc object {} {
       #
       # Method for emulating "object". Object specific code cannot