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.6 -r1.7
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	12 Sep 2003 12:28:20 -0000	1.6
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	16 Sep 2003 08:29:59 -0000	1.7
@@ -162,12 +162,18 @@
     @author Peter Marklund
 } {
     set full_list [db_list_of_lists select_impl_options {
-        select impl_name,
+        select case when impl_pretty_name != '' then impl_pretty_name else impl_name end as impl_name,
                impl_id
         from acs_sc_impls
         where impl_contract_name = :contract_name
     }]
 
+    set impl_list [list]
+
+    if { ![empty_string_p $empty_label] } {
+        lappend impl_list [list $empty_label ""]
+    }
+
     if { [llength $exclude_names] > 0 } {
         # There are exclude names
         foreach element $full_list {
@@ -179,13 +185,9 @@
         }
     } else {
         # No exclude names, use all options
-        set impl_list $full_list
+        set impl_list [concat $impl_list $full_list]
     }
 
-    if { ![empty_string_p $empty_label] } {
-        lappend impl_list [list $empty_label ""]
-    }
-
     return $impl_list
 }