diff --git a/src/Dodge/Creature/Statistics.hs b/src/Dodge/Creature/Statistics.hs
index 8271aa473..7339d4bfd 100644
--- a/src/Dodge/Creature/Statistics.hs
+++ b/src/Dodge/Creature/Statistics.hs
@@ -8,8 +8,11 @@ import LensHelp
 import Data.Maybe
 import Data.IntMap.Merge.Strict
 
+getCrDexterity :: Creature -> Int
+getCrDexterity cr = _dexterity (_crStatistics cr)
+
 getCrStrength :: Creature -> Int
-getCrStrength cr = strFromHeldItem cr + strFromEquipment cr + _crStrength (_crStatistics cr)
+getCrStrength cr = strFromHeldItem cr + strFromEquipment cr + _strength (_crStatistics cr)
 
 strFromEquipment :: Creature -> Int
 strFromEquipment = sum . fmap equipmentStrValue . crCurrentEquipment
diff --git a/src/Dodge/Data.hs b/src/Dodge/Data.hs
index 2c5e51c71..cd9845ea5 100644
--- a/src/Dodge/Data.hs
+++ b/src/Dodge/Data.hs
@@ -378,9 +378,9 @@ data CamouflageStatus
     | Invisible
     deriving (Eq,Ord,Enum)
 data CreatureStatistics = CreatureStatistics
-    { _crStrength       :: Int
-    , _crDexterity      :: Int
-    , _crIntelligence   :: Int
+    { _strength       :: Int
+    , _dexterity      :: Int
+    , _intelligence   :: Int
     }
 data Vocalization 
     = Mute