diff --git a/fcore/constants.sml b/fcore/constants.sml
index 7cdf052..8eb8a42 100644
--- a/fcore/constants.sml
+++ b/fcore/constants.sml
@@ -29,4 +29,6 @@ struct
   val enemySize = 35
   val enemySizeReal: Real32.real = 35.0
   val moveEnemyBy = 5
+
+  val moveProjectileBy = 15
 end
diff --git a/fcore/player.sml b/fcore/player.sml
index 4f23ab9..7a468a4 100644
--- a/fcore/player.sml
+++ b/fcore/player.sml
@@ -298,8 +298,8 @@ struct
           let
             val x =
               case facing of
-                FACING_LEFT => x - Constants.movePlayerBy
-              | FACING_RIGHT => x + Constants.movePlayerBy
+                FACING_LEFT => x - Constants.moveProjectileBy
+              | FACING_RIGHT => x + Constants.moveProjectileBy
 
             val newTile = {x = x, y = y, facing = facing}
             val acc = newTile :: acc