Index: openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl,v
diff -u -N -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	10 Sep 2015 08:21:33 -0000	1.6.2.1
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	2 Jan 2016 17:50:12 -0000	1.6.2.2
@@ -192,13 +192,7 @@
 } {
     Get a list of names of operations for the contract.
 } {
-    return [db_list select_operations {
-        select o.operation_name
-        from   acs_sc_operations o, 
-               acs_sc_contracts c
-        where  c.contract_name = :contract_name
-        and    o.contract_id = c.contract_id
-    }]
+    return [db_list select_operations {}]
 }