diff --git a/demos/01-snake-game.lisp b/demos/01-snake-game.lisp
index 88b059e..af1ebe3 100644
--- a/demos/01-snake-game.lisp
+++ b/demos/01-snake-game.lisp
@@ -119,9 +119,9 @@
 		    (setf (snake app) (butlast (snake app)))))
 	  
 	     (fill-style cx :brown)
-	     (draw-segment (food app)))
+	     (draw-segment (food app))))
       
-	game-over))))
+	game-over)))
 
 (defun on-key-down (obj event)
   (let ((app      (connection-data-item obj "app-data"))