Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -N -r1.121 -r1.122
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	6 Jun 2018 23:02:01 -0000	1.121
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	12 Aug 2018 12:22:48 -0000	1.122
@@ -150,7 +150,7 @@
 	return
     }
 
-    with_finally -code {
+    ad_try {
 	if {$contacts_package_ids eq ""} {
 	    set contacts_package_ids [apm_package_ids_from_key -package_key "contacts" -mounted]
 	}
@@ -224,7 +224,7 @@
 	    db_dml delete_deleted_users {}
 	}
 	
-    } -finally {
+    } finally {
 	nsv_incr contacts sweeper_p -1
     }