diff --git a/mysql-test/mysql-test-run.pl b/mysql-test/mysql-test-run.pl
index 7b1573366c0..2227a8c77f6 100755
--- a/mysql-test/mysql-test-run.pl
+++ b/mysql-test/mysql-test-run.pl
@@ -3164,6 +3164,7 @@ sub check_expected_crash_and_restart {
 # Remove all files and subdirectories of a directory
 sub clean_dir {
   my ($dir)= @_;
+  print "clean_dir: $dir\n";
   finddepth(
 	  { no_chdir => 1,
 	    wanted => sub {
@@ -3173,11 +3174,13 @@ sub clean_dir {
 		  # The dir to clean
 		  return;
 		} else {
-		  rmdir($_) or mtr_warning("rmdir failed: $!");
+		  print "rmdir: '$_'\n";
+		  rmdir($_) or mtr_warning("rmdir($_) failed: $!");
 		}
 	      } else {
 		# Hopefully a file
-		unlink($_) or mtr_warning("unlink failed: $!");
+		print "unlink: '$_'\n";
+		unlink($_) or mtr_warning("unlink($_) failed: $!");
 	      }
 	    }
 	  },