Index: openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	14 Dec 2005 22:12:51 -0000	1.1.2.3
+++ openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	15 Dec 2005 07:24:13 -0000	1.1.2.4
@@ -25,7 +25,7 @@
     set rel_ids [db_list linked_objects {}]
 
     foreach rel_id $rel_ids {
-	dm_dml delete_link {}
+	db_dml delete_link {}
     }
 }