diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj
index 7d91290..d96e181 100644
--- a/src/play_clj/core.clj
+++ b/src/play_clj/core.clj
@@ -126,7 +126,7 @@ object"
         run-fn! (fn [k & args]
                   (doseq [screen screens]
                     (if wrap
-                      (wrap (get screen k) args)
+                      (wrap screen k args)
                       (apply (get screen k) args))))]
     (.setScreen game (reify Screen
                        (show [this] (add-inputs!) (run-fn! :show))