1 files changed, 1 insertions, 1 deletions

diff --git a/tools/p1.pl b/tools/p1.pl
index 9cbe6dc0..ea80c334 100644
--- a/tools/p1.pl
+++ b/tools/p1.pl
@@ -30,7 +30,7 @@ use IO::File;
 
 sub TIEHANDLE {
         my ($class, $fn) = @_;
-        my $handle = new IO::File "> $fn" or die "Cannot open embedded work filei $!\n";
+        my $handle = new IO::File "> $fn" or die "Cannot open embedded work file $!\n";
         bless { FH => $handle, Value => 0}, $class;
 }