Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -r1.7.2.13 -r1.7.2.14
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	13 Dec 2019 17:56:28 -0000	1.7.2.13
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	18 Dec 2019 16:44:33 -0000	1.7.2.14
@@ -1015,7 +1015,7 @@
       # first delete workflow and data, when it exists
       if {[$parentObj property wfName] ne ""} {
         set wf [:delete_all_answer_data $parentObj]
-        if {$wf ne ""} {$wf delete}
+        if {$wf ne ""} {$wf www-delete}
       }
 
       #
@@ -1083,7 +1083,7 @@
       set wf [:get_answer_wf $obj]
       if {$wf ne ""} {
         set items [:get_wf_instances -initialize false $wf]
-        foreach i [$items children] { $i delete }
+        foreach i [$items children] { $i www-delete }
       }
       return $wf
     }