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.4 -r1.5
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	3 Sep 2003 19:51:06 -0000	1.4
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	10 Jan 2007 21:22:05 -0000	1.5
@@ -174,7 +174,7 @@
 
             # Delete msg types
             foreach msg_type_id $msg_types {
-                if { ![empty_string_p $msg_type_id] } {
+                if { $msg_type_id ne "" } {
                     acs_sc::msg_type::delete -msg_type_id $msg_type_id
                 }
             }