diff --git a/src/windows.lisp b/src/windows.lisp
index 6bd5892..d6c60a9 100644
--- a/src/windows.lisp
+++ b/src/windows.lisp
@@ -126,7 +126,7 @@
                     (>= ,width  ,min-valid-width))
            ,@body)))))
 
-(defun win-clear (window &key (redraw t))
+(defun win-clear (window &key (redraw nil))
   "Clear window content"
   (clear (croatoan-window window) :target :window :redraw redraw))