diff --git a/src/monmove.c b/src/monmove.c
index c757ec8b4..43cd4f7e5 100644
--- a/src/monmove.c
+++ b/src/monmove.c
@@ -125,12 +125,13 @@ struct monst *mtmp;
 	    is_rider(mtmp->data) || mtmp->data == &mons[PM_MINOTAUR])
 		return(FALSE);
 
-	return (boolean)(sobj_at(SCR_SCARE_MONSTER, x, y)
+	return (boolean)(sobj_at(SCR_SCARE_MONSTER, x, y) ||
 #ifdef ELBERETH
-			 || sengr_at("Elbereth", x, y)
+			 sengr_at("Elbereth", x, y) ||
 #endif
-			 || (mtmp->data->mlet == S_VAMPIRE
-			     && IS_ALTAR(levl[x][y].typ)));
+			 (IS_ALTAR(levl[x][y].typ) &&
+			    (mtmp->data->mlet == S_VAMPIRE ||
+			     is_vampshifter(mtmp))));
 }
 
 /* regenerate lost hit points */