Cycle in spine introduced by "remove first argument type for BESetMemberTypeOfField"

After commit 6c39cd56, the following program crashes with a cycle in spine:

import Clean.Types.Parse
Start = parseType ['Int']

You can find Clean.Types.Parse in Platform.