Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	20 Aug 2001 21:52:31 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	10 Sep 2001 20:38:46 -0000	1.4
@@ -343,7 +343,7 @@
 
     if { [string eq $delete_p "t"] } {
 	# Delete the node from the site map
-	db_dml node_delete {
+	db_exec_plsql node_delete {
 	    begin site_node.delete(:node_id); end;
 	}	
     }