Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	3 Feb 2003 12:17:36 -0000	1.10
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	25 Feb 2003 15:15:33 -0000	1.11
@@ -84,17 +84,19 @@
     
     @author Neophytos Demetriou
 } {
-
-    set exists_p [util_memoize "acs_sc_binding_exists_p $contract $impl"]
-
+    # LARS
+    set exists_p [acs_sc_binding_exists_p $contract $impl]
+    
+    #set exists_p [util_memoize "acs_sc_binding_exists_p $contract $impl"]
+    
     if ![set exists_p] {return ""}
-
+    
     db_0or1row get_alias {
 	select impl_alias, impl_pl
-	from acs_sc_impl_aliases
-	where impl_contract_name = :contract
-	and impl_operation_name = :operation
-	and impl_name = :impl
+	from   acs_sc_impl_aliases
+	where  impl_contract_name = :contract
+	and    impl_operation_name = :operation
+	and    impl_name = :impl
     }
 
     return [list $impl_alias $impl_pl]