Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql	11 Dec 2003 21:39:56 -0000	1.16
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql	11 Aug 2006 09:13:34 -0000	1.17
@@ -40,9 +40,11 @@
 
 <fullquery name="person::delete.delete_person">      
       <querytext>
-
-	    select person.del(:person_id) from dual;
-	
+	    begin
+			person.del(
+				person_id => :person_id
+			);
+		end;
       </querytext>
 </fullquery>