Fixed COMPOUND? again

COMPOUND? was returning T for a list with a single frame, ie. (frame).
This was causing SF-UNIFY to try to compare the list with the frame
instead of the frame itself.