diff --git a/Parser.pas b/Parser.pas
index 2fea0fe..06d8321 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -3846,6 +3846,8 @@ var
 
 
    begin {Initialize}
+   while itype^.kind = definedType do
+      itype := itype^.dType;
    case itype^.kind of
 
       scalarType,pointerType,enumType,functionType: begin