[ooc-compiler] initializing parametric type from udefined type

[vedmed <ve...@in...>]

MODULE TestVed0006;

IMPORT
  Out,
  Object;

TYPE

  Bet(E: Object.Object) = POINTER TO BetDesc(E);
  BetDesc(E: Object.Object) = RECORD (Object.ObjectDesc)
  
  END;

PROCEDURE DoTest();
VAR
  rl: Bet(Object.Object);
BEGIN
  rl := NEW(Bet(Karamba));
END DoTest;

BEGIN
  DoTest;
END TestVed0006.

internal compiler error
## Runtime error in module OOC:IR at pos 170884
## Type guard failed, actual type is OOC:IR.ConstDesc

not very imortant, good source produce good code

system: ASPLinux 9 (RedHat 9 clone)
oo2c: 2.0.13
gc: 6.2
libtool: 1.4.3
gcc:
Reading specs from /usr/lib/gcc-lib/i386-asplinux-linux/3.2.2/specs
Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --disable-checking --with-system-zlib --enable-__cxa_atexit --host=i386-asplinux-linux
Thread model: posix
gcc version 3.2.2 20030222 (ASPLinux 3.2.2-5asp)