diff --git a/src/Dodge/Creature/Perception.hs b/src/Dodge/Creature/Perception.hs
index b9a3dee47..aae963ac0 100644
--- a/src/Dodge/Creature/Perception.hs
+++ b/src/Dodge/Creature/Perception.hs
@@ -51,11 +51,13 @@ basicAwarenessUpdate w cr = case _cpAttention $ _crPerception cr of
             any isCognizant $ IM.unionWith cogRaised oldAwareness newAwareness
         maybeBecomeCognizant = fromMaybe id $ do
             guard becomesCognizant
+--            guard $ cr ^. crVocalization == VocReady
             return $
-                crActionPlan . apAction
+                (crActionPlan . apStrategy .~ WarningCry) . 
+                (crActionPlan . apAction
                     .~ [ImpulsesList (crImpulsesOnCognizant w cr)
                         , AimAt 0 (w ^?! cWorld . lWorld . creatures . ix 0 . crPos . _xy)
-                        ]
+                        ])
 
 crImpulsesOnCognizant :: World -> Creature -> [[Impulse]]
 crImpulsesOnCognizant w cr = case cr ^. crType of