diff --git a/gib-gab-gob/game.scm b/gib-gab-gob/game.scm
index 9b9a58d..50f3489 100644
--- a/gib-gab-gob/game.scm
+++ b/gib-gab-gob/game.scm
@@ -14,8 +14,8 @@
   (define %my-turn? first?)
   (define (%state)
     (cond
-     ((board-winner? board mark) => 'won)
-     ((board-winner? board peer-mark) => 'lost)
+     ((board-winner? board mark) 'won)
+     ((board-winner? board peer-mark) 'lost)
      (else 'play)))
   (define (signal-turn)
     ;; any better way to do this?
diff --git a/gib-gab-gob/ui/console.scm b/gib-gab-gob/ui/console.scm
index 746606b..b6b1a88 100644
--- a/gib-gab-gob/ui/console.scm
+++ b/gib-gab-gob/ui/console.scm
@@ -54,8 +54,8 @@
 (define (%display b state)
   (board-display b)
   (cond
-   ((eq? state 'won) => (format #t "*** I won! ***\n"))
-   ((eq? state 'lost) => (format #t "*** I lost! ***\n"))))
+   ((eq? state 'won) (format #t "*** I won! ***\n"))
+   ((eq? state 'lost) (format #t "*** I lost! ***\n"))))
 
 (define (begin-game-loop board controller my-turn+)
   (define vat (spawn-vat #:name "UI"))