diff --git a/bin/prove6 b/bin/prove6
index be9e70e..ef7e533 100644
--- a/bin/prove6
+++ b/bin/prove6
@@ -8,7 +8,7 @@ multi sub listall(IO::Path $path where .d) {
     }
 }
 multi listall(IO::Path $path) {
-    when $path.f && $path ~~ /.t$/ {
+    when $path.f && $path ~~ /\.t$/ {
         take ~$path;
     }
 }