diff --git a/Units/MMLCore/finder.pas b/Units/MMLCore/finder.pas
index b9473e7..de989b9 100644
--- a/Units/MMLCore/finder.pas
+++ b/Units/MMLCore/finder.pas
@@ -449,6 +449,7 @@ begin
                       PCTS2Info(Result)^.L);
           PCTS2Info(Result)^.hueMod := Tol * hueMod;
           PCTS2Info(Result)^.satMod := Tol * satMod;
+          PCTS2Info(Result)^.Tol := Tol;
       end;
   end;
 end;