diff --git a/src/Scat.hs b/src/Scat.hs
index 5542515..bcaf0e2 100644
--- a/src/Scat.hs
+++ b/src/Scat.hs
@@ -105,7 +105,8 @@ prompt vis str = do
         (hSetEcho stdin $ shouldShow vis)
         (hSetEcho stdin old)
         C.getLine
-    when (shouldErase vis) $ liftIO $ do
+    v <- fmap verbose ask
+    when (shouldErase vis && v) $ liftIO $ do
         cursorUpLine 1
         cursorForward $ length str
         clearFromCursorToScreenEnd