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.9 -r1.10
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	27 Mar 2018 11:18:00 -0000	1.9
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	25 Apr 2018 19:23:26 -0000	1.10
@@ -157,8 +157,8 @@
 
         if { !$no_cascade_p } {
             
-            set operations [list]
-            set msg_types [list]
+            set operations {}
+            set msg_types {}
             
             db_foreach select_operations {} {
                 # Put them on list of message types and operations to delete