diff --git a/t/Macro/Include.t b/t/Macro/Include.t
index 05118591c..6ecba1190 100644
--- a/t/Macro/Include.t
+++ b/t/Macro/Include.t
@@ -32,8 +32,11 @@ my $storage = WebGUI::Storage->createTemp($session);
 $storage->addFileFromScalar('goodFile', $goodFile);
 $storage->addFileFromScalar('twoLines', $twoLines);
 $storage->addFileFromScalar('unreadableFile', 'The contents of this file are not readable');
-chmod(0111, $storage->getPath('unreadableFile')) or
+my $unreadable = $storage->getPath('unreadableFile');
+diag(sprintf "original mode: %o", (stat $unreadable)[2]);
+chmod(0111, $unreadable) or
 	diag("Unable to chmod file.");
+diag(sprintf "modified mode: %o", (stat $unreadable)[2]);
 
 my @testSets = (
 	{