Index: openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	7 Aug 2017 23:47:57 -0000	1.15
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	7 Apr 2018 17:54:17 -0000	1.16
@@ -132,7 +132,7 @@
 ad_proc -public acs_sc::impl::get_id {
     {-owner:required}
     {-name:required}
-    -contract
+    {-contract ""}
 } {
     Retrieves the ID for a service contract.  If the contract is specified
     then the ID is retrieved for the specified contract, otherwise all
@@ -147,7 +147,7 @@
     a service contract,
     if the contract is not specified.
 } {
-    if {([info exists contract] && $contract ne "")} {
+    if {($contract ne ""} {
         return [db_string select_impl_id_with_contract {}]
     } else {
         return [db_string select_impl_id {}]