Index: openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql	11 Aug 2001 21:31:03 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql	28 Aug 2001 19:03:28 -0000	1.4
@@ -14,7 +14,7 @@
  
 <fullquery name="relation_remove.relation_delete">      
       <querytext>
-      select ${package_name}__delete(:rel_id)
+      begin perform ${package_name}__delete(:rel_id); return null; end;
       </querytext>
 </fullquery>
 
Index: openacs-4/packages/acs-subsite/tcl/relation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	28 Aug 2001 19:03:28 -0000	1.2
@@ -146,7 +146,7 @@
 	}
     }
 
-    db_dml relation_delete "begin ${package_name}.delete(:rel_id); end;"
+    db_exec_plsql relation_delete "begin ${package_name}.delete(:rel_id); end;"
 
     return 1
 }