diff --git a/Expression.pas b/Expression.pas
index 775ff7a..4354b51 100644
--- a/Expression.pas
+++ b/Expression.pas
@@ -1967,6 +1967,11 @@ var
       end; {while}
    if token.kind <> rparench then
       Error(12);
+   while typesSeen <> nil do begin      {dispose of the list of types seen}
+      tl := typesSeen^.next;
+      dispose(typesSeen);
+      typesSeen := tl;
+      end; {while}
 
    if not foundMatch then               {use default if no match found}
       if foundDefault then