[fpc-devel] local "class of" error?

[Martin Friebe]

Not sure if this is intended, or just a wrong assumptions by the parser?

Procedure foo;
type
  TSomeClass = Class of TSome;
.....
gives the error:  Error: Local class definitions are not allowed

But there is no Class declaration. (Not sure what you call "class of") 
TSome is declared elsewhere already.
Hence my question:
Is this intended to give an error? (or does the parser just see class 
and makes the assumption a new class will be declared?)

Best Regards
Martin