Fix another case where a program with incorrectly matched flexible records raised an InternalError exception rather than producing an error message.  Fixes bug #3544692.  Thanks again to Phil Clayton for reporting it.
Fix another case where a program with incorrectly matched flexible records raised an InternalError exception rather than producing an error message.  Fixes bug #3544692.  Thanks again to Phil Clayton for reporting it.

git-svn-id: 98787b36aaefbae4b30fa755be920954cd25e1e4@1557 ae7d391e-3f74-4a2b-a0db-a8776840fd2a

dcjm/polyml,dcjm/polyml,mn200/polyml,polyml/polyml,mn200/polyml,mn200/polyml,polyml/polyml,dcjm/polyml,polyml/polyml,mn200/polyml,dcjm/polyml,polyml/polyml