Destructive Substitution / "module type of" formatting is wrong

[chrischen]

This syntax:

include (
            SomeModule:
               (module type of SomeModule) with type t('a) := SomeModule.t('a)
          );

Gets mangled into this "ofSomemodule" with space removed:

include (
            SomeModule:
               (module type ofSomeModule) with type t('a) := SomeModule.t('a)
          );

This works:

include (SomeModule: (module type of SomeModule));

bs-platform version 8.2.0.