Recursive parametrized classes bug?

["Сергей Плаксин" <serp@stork.ru>]

>>> cat test.ml
class type ['a] a  =
  object
    method v: 'a
  end
and b =
  object
    inherit [int] a
  end
and c =
  object
    inherit [float] a
  end
=======
File "test.ml", line 15, characters 13-18:
The type parameter float does not meet its constraint: it should be int

---------------------
Whithou recursion it compiled successfully.

class type ['a] a  =
  object
    method v: 'a
  end

class type b =
  object
    inherit [int] a
  end

class type c =
  object
    inherit [float] a
  end