Index: openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	25 Apr 2018 19:23:26 -0000	1.10
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	9 May 2018 15:33:28 -0000	1.11
@@ -157,8 +157,8 @@
 
         if { !$no_cascade_p } {
             
-            set operations {}
-            set msg_types {}
+            set operations [list]
+            set msg_types [list]
             
             db_foreach select_operations {} {
                 # Put them on list of message types and operations to delete