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 -r1.12 -r1.13
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	14 Jul 2006 00:43:38 -0000	1.12
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	10 Jan 2007 21:22:05 -0000	1.13
@@ -32,7 +32,7 @@
     
     @return the ID of the new implementation
 } {
-    if { [empty_string_p $pretty_name] } {
+    if { $pretty_name eq "" } {
         set pretty_name $name
     }
     return [db_exec_plsql impl_new {}]
@@ -196,7 +196,7 @@
 
     set impl_list [list]
 
-    if { ![empty_string_p $empty_label] } {
+    if { $empty_label ne "" } {
         lappend impl_list [list $empty_label ""]
     }