diff --git a/auto/bin/parse_spec.pl b/auto/bin/parse_spec.pl
index a4ceb42..e16ef32 100755
--- a/auto/bin/parse_spec.pl
+++ b/auto/bin/parse_spec.pl
@@ -299,7 +299,7 @@ foreach my $spec (sort @speclist)
         {
             if ($token =~ /^$prefix\_.*/i)
             {
-                print EXT "\t" . $token . " " . ${%{$tokens}}{$token} . "\n";
+                print EXT "\t" . $token . " " . ${\%{$tokens}}{$token} . "\n";
             }
         }
         foreach my $function (sort keys %{$functions})