--- smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list.FixAccountRemoval	2008-08-10 15:45:57.000000000 +0200
+++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list	2008-08-10 15:47:40.000000000 +0200
@@ -33,7 +33,7 @@
 
 use esmith::AccountsDB;
 
-my $db_accounts = esmith::AccountsDB->open_ro() or
+my $db_accounts = esmith::AccountsDB->open() or
     die "Couldn't open AccountsDB\n";
 
 my @repositories = $db_accounts->get_all_by_prop('type' => 'repository');
@@ -42,7 +42,7 @@
     (@repositories),
 )
 {
-    my $repository_rec = $db_accounts->get($repository) || next REPOSITORY;
+    my $repository_rec = $db_accounts->get($repository->key()) || next REPOSITORY;
 
     foreach my $entry (@entries) {