diff --git a/main.scm b/main.scm
index cd97294..b52abc0 100644
--- a/main.scm
+++ b/main.scm
@@ -600,7 +600,9 @@
      ((if (square-flagged? mouse-square) sub1 add1) (game-num-flagged game)))
     (square-flagged?-set! mouse-square (not (square-flagged? mouse-square))))
 
-  (when (and mouse-in-bounds? (or (button-pressed? 'left) (button-pressed? 'middle)))
+  (when (and mouse-in-bounds?
+	     (not (square-flagged? mouse-square))
+	     (or (button-pressed? 'left) (button-pressed? 'middle)))
     (if (and (square-revealed? mouse-square)
 	     (= (square-num-adjacent mouse-square)
 		(length
@@ -717,7 +719,7 @@
 	      (when (game-over? game)
 		(draw-text "GAME OVER" 0 0 20 (color 255 0 0)))
 	      (when (game-won? game)
-		(draw-text "A COMPLETER IS YOU 0 20 20" (color 247 231 54))))
+		(draw-text "A COMPLETER IS YOU" 0 20 10 WHITE)))
 	    #;(draw-mouse-info BLACK)
 	    ))
     (unload-texture skin)