diff --git a/src/Dodge/Creature.hs b/src/Dodge/Creature.hs
index 796d176f6..c5ab66d13 100644
--- a/src/Dodge/Creature.hs
+++ b/src/Dodge/Creature.hs
@@ -110,6 +110,7 @@ startCr = defaultCreature
     , _crMvType = MvWalking yourDefaultSpeed
     }
     & crType . skinUpper .~ light4 black
+    & crType . humanoidAI .~ YourAI
 {- | Items you start with.  -}
 startInvList :: [Item]
 startInvList = [ ]