diff --git a/.gitignore b/.gitignore
index 4523933..9b20757 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
-*.dcu
\ No newline at end of file
+*.dcu
+__history
\ No newline at end of file
diff --git a/Source/uPSCompiler.pas b/Source/uPSCompiler.pas
index c3854de..0d81ef1 100644
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@@ -3564,12 +3564,12 @@ var
   h, l: Longint;
   x: TPSProcedure;
 begin
-  h := MakeHash(s);
   if (s = 'RESULT') then
   begin
     Result := True;
     exit;
   end;
+  h := MakeHash(s);
   if dcTypes in Check then
   for l := FTypes.Count - 1 downto 0 do
   begin