Bug in STRING's error handling

[JAR at MIT-MC (Jonathan A. Rees)]

I recently got an error in the STRING package's function
STR:COMPRESS-SPACE, "STRING bug detected by STR/:COMPRESS-SPACE".  Now
I didn't mind getting this message, since I was doing some awful
things anyhow, like continuing after GC-LOSSAGE breakpoints, and my
Lisp was pretty ill by that time; the error itself wasn't the problem.
What got me pissed off was that after the error was reported, I was
thrown out to top level, losing the entire context I had so carefully
established!  The reason for this is that ERROR was called with no
interrupt channel argument while *RSET was ().  That is a RUDE thing
for ANY error detection code to do.