Nested guard is borked

[Daniel Colascione via Chicken-users]

This runs forever. Should print caught and exit.

  (import (scheme base) (scheme write))

  (write
   (guard (catcher (else 'caught))
     (guard (outer (#f #f))
       (guard (inner (#f #f))
         (raise 'boom)))))
  (newline)