Fix problem in test pt04, in two-couple mode.

[wba4]

Line 6311 of pt04t.tmp or ref. This is something I was too lazy to fix at the time, so I just put something in the regression test to remind me every time I run it.