This has no effect on existing tests, which never passed more than one body form, but it might be important for anyone else who wants to use this macro.
@@ -72,7 +72,7 @@ end of input."
(when (member (car C-g-key-sequence) key-sequence)
(error "KEYS must include C-g"))
(condition-case nil
- ,@body
+ (progn ,@body)
(quit
(error "Reached end of simulated input while evaluating body")))))