Fix test case for last commit.

There ought to be a way to improve the type of `apply-pattern-substitute`,
but we haven't found it yet.