Index: openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl	20 Aug 2001 05:15:29 -0000	1.2
@@ -60,7 +60,7 @@
 	    rel_segments_delete $segment_id
 	}
 	    
-	db_dml drop_relationship_type {
+	db_exec_plsql drop_relationship_type {
 	    BEGIN
 	      acs_rel_type.drop_type( rel_type  => :rel_type,
                                       cascade_p => 't' );