diff --git a/src/Dodge/Data/ForegroundShape.hs b/src/Dodge/Data/ForegroundShape.hs
index c64e538bd..74c2527eb 100644
--- a/src/Dodge/Data/ForegroundShape.hs
+++ b/src/Dodge/Data/ForegroundShape.hs
@@ -9,6 +9,7 @@ data ForegroundShape = ForegroundShape
     { _fsID :: Int
     , _fsPos :: Point2
     , _fsDir :: Float
+    , _fsRad :: Float
     , _fsSPic :: SPic
     }
   deriving (Eq,Show,Ord)