diff --git a/src/play_clj/core_basics.clj b/src/play_clj/core_basics.clj
index 167a94b..025b5c8 100644
--- a/src/play_clj/core_basics.clj
+++ b/src/play_clj/core_basics.clj
@@ -140,7 +140,7 @@
 (defn ^:private add-input!
   [^InputProcessor p]
   (when-let [^InputMultiplexer multi (input! :get-input-processor)]
-    (.addProcessor multi p)))
+    (.setProcessors multi (doto (.getProcessors multi) (.insert 0 p)))))
 
 (defn ^:private remove-input!
   [^InputProcessor p]