Fixed returning the incorrect vtbl pointer

[Patschkowski]

I ask myself why this was not spotted earlier.

[zertovitch]

Thx. Side note: AdaControl would suggest turning such a test into a positive form: if Data.Type_Information = null then ... else ... end if;