diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl
index 4dc051aa62..ce5c976c16 100644
--- a/src/tools/msvc/vcregress.pl
+++ b/src/tools/msvc/vcregress.pl
@@ -10,6 +10,7 @@ use Cwd;
 use File::Basename;
 use File::Copy;
 use File::Find ();
+use File::Path qw(rmtree);
 
 use Install qw(Install);
 
@@ -205,6 +206,7 @@ sub tap_check
 
 	$ENV{TESTDIR} = "$dir";
 
+	rmtree('tmp_check');
 	system(@args);
 	my $status = $? >> 8;
 	return $status;