In fcl-passrc, function TPasClassType GetDeclaration does not correctly show declarations

function TPasClassType GetDeclaration does not correctly show declarations.

For example:

  TMyClass=class
    field : integer;
    procedure Proc;
  end;

is shown as follows:

TMyClass

In the analogous case of advanced records, the behavior is correct.

For example:

RPoint=Record
  K : string;
  procedure Method;
end;   

is shown as follows:

RPoint = record
public
  K : string;
  procedure Method;
end;

See attached archive to reproduce.

test.zip