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.12 -r1.13
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	6 Jun 2018 21:52:08 -0000	1.12
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	17 Jun 2018 19:20:09 -0000	1.13
@@ -149,9 +149,9 @@
 
     db_transaction {
         # Need both name and ID below
-        if { (![info exists name] || $name eq "") } {
+        if { $name eq "" } {
             set name [db_string get_name_by_id {}]
-        } elseif { (![info exists contract_id] || $contract_id eq "") } {
+        } elseif { $contract_id eq "" } {
             set contract_id [db_string get_id_by_name {}]
         }