diff --git a/src/tools/msvc/pgflex.pl b/src/tools/msvc/pgflex.pl
index 36636ccaf35fd91e2c5324878547b7ca9b4e0d12..f48ce6b900a0b6b20b73a91bd1e4979dbef73d46 100644
--- a/src/tools/msvc/pgflex.pl
+++ b/src/tools/msvc/pgflex.pl
@@ -67,7 +67,7 @@ if ($? == 0)
     }
 	if ($flexflags =~ /\s-b\s/)
 	{
-		my $lexback = dirname($input) . "/lex.backup";
+		my $lexback = "lex.backup";
 		open($lfile,$lexback) || die "opening $lexback for reading: $!";
 		my $lexbacklines = <$lfile>;
 		close($lfile);