diff -Naur qmail-scanner-2.01st.orig/sub-patch-st.pl qmail-scanner-2.01st/sub-patch-st.pl
--- qmail-scanner-2.01st.orig/sub-patch-st.pl	2007-02-04 10:52:04.000000000 +0100
+++ qmail-scanner-2.01st/sub-patch-st.pl	2007-11-14 20:45:25.000000000 +0100
@@ -195,6 +195,14 @@
 
   print "\n  Generating $settings_per_domain.db\n\n";
 
+  # delete "__db.[DBNAME]" and "__db.[DBNAME].*"
+  foreach my $tfile ("__db.$settings_per_domain.db.tmp", <__db.$settings_per_domain.db.tmp.*>) {
+    next unless (-e $tfile);
+    if (!unlink($tfile)) {
+      print "ERROR: cannot remove Berkeley DB tmp file $tfile: $!\n";
+      return;
+    }
+  }
   unlink ("$settings_per_domain.db.tmp");
   tie (%domain_settings,'DB_File',"$settings_per_domain.db.tmp",O_CREAT|O_RDWR,0640,$DB_HASH) || &error_condition("cannot open for write $settings_per_domain.db.tmp - $!");