Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 471)
+++ /trunk/ccl/lib/macros.lisp	(revision 472)
@@ -2595,5 +2595,5 @@
       (unwind-protect
 	   (progn ,@body)
-	(if ,got-it (%restore-terminal-input))))))
+	(%restore-terminal-input ,got-it)))))
 
 (defmacro do-unexhausted-lisp-threads ((thread) &body body)