shrieking monster failed to wake others

<email deleted> wrote on Friday, December 10, 2004:
> I was in a barracks with the soldiers sleeping.  I started fighting one soldier
> and threw a potion of acid on him.  I got the "The soldier shrieks in pain!"
> message, but none of the other soldiers in the barracks woke up.

doc/fixes34.4

@@ -72,6 +72,7 @@ cannot drink from fountain, sink or surrounding water while swallowed
 don't hallucinate anything for an exploding black light as it dies
 give blindness feedback when moving into/through stinking cloud
 fix case on monster name when monster reflects floating eye's gaze
+monsters "shrieking in pain" from a potion didn't wake anything up
 
 
 Platform- and/or Interface-Specific Fixes

src/potion.c

@@ -1215,6 +1215,9 @@ boolean your_fault;
 		    if (obj->blessed) {
 			pline("%s %s in pain!", Monnam(mon),
 			      is_silent(mon->data) ? "writhes" : "shrieks");
+			if (!is_silent(mon->data))
+				wake_nearto(mon->mx, mon->my,
+					    mon->data->mlevel * 10);
 			mon->mhp -= d(2,6);
 			/* should only be by you */
 			if (mon->mhp < 1) killed(mon);
@@ -1249,6 +1252,9 @@ boolean your_fault;
 		if (!resists_acid(mon) && !resist(mon, POTION_CLASS, 0, NOTELL)) {
 		    pline("%s %s in pain!", Monnam(mon),
 			  is_silent(mon->data) ? "writhes" : "shrieks");
+		    if (!is_silent(mon->data))
+				wake_nearto(mon->mx, mon->my,
+					    mon->data->mlevel * 10);
 		    mon->mhp -= d(obj->cursed ? 2 : 1, obj->blessed ? 4 : 8);
 		    if (mon->mhp < 1) {
 			if (your_fault)