@@ -4213,7 +4213,7 @@ implementation
function tclassrefdef.GetTypeName : string;
begin
- GetTypeName:='Class Of '+pointeddef.typename;
+ GetTypeName:='Class Of '+pointeddef.typesymbolprettyname;
end;