diff --git a/flappy-ball.lisp b/flappy-ball.lisp
index 624423f..63ad58e 100644
--- a/flappy-ball.lisp
+++ b/flappy-ball.lisp
@@ -235,11 +235,11 @@ Hash-table with level name => file name => resource.")
      (score 0)
      (high-scores (load-high-scores "highscores"))
      (on-exit (lambda () ()))
-     (level "level1")
+     (play-level 0)
      )
 
   (let ((ball-collides (some (lambda (pipe) (pipe-collides pipe ball scroll-x)) pipes))
-        )
+        (level (format nil "level~a" (1+ play-level))))
     
     (draw-background level scroll-x)
     (draw-foreground level pipes scroll-x pipe-pen height)