Indent `with-standard-io-syntax' correctly.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index dff375a2714..54f13239b18 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -433,7 +433,8 @@ by `lisp-body-indent'."
            (throw 1)
            (unless 1)
            (unwind-protect (5 &body))
-           (when 1))))
+           (when 1)
+           (with-standard-io-syntax (2)))))
   (while l
     (put (car (car l)) 'common-lisp-indent-function
          (if (symbolp (cdr (car l)))