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.8 -r1.9
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	29 Sep 2003 08:05:18 -0000	1.8
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	16 Oct 2003 09:34:28 -0000	1.9
@@ -170,7 +170,7 @@
     @author Peter Marklund
 } {
     set full_list [db_list_of_lists select_impl_options {
-        select case when impl_pretty_name != '' then impl_pretty_name else impl_name end as impl_name,
+        select case when impl_pretty_name is not null then impl_pretty_name else impl_name end as impl_name,
                impl_id
         from acs_sc_impls
         where impl_contract_name = :contract_name