diff --git a/zone/perl_npc.cpp b/zone/perl_npc.cpp
index 0c9cec797..861759d12 100644
--- a/zone/perl_npc.cpp
+++ b/zone/perl_npc.cpp
@@ -823,7 +823,7 @@ XS(XS_NPC_RemoveFromHateList)
 		if(ent == nullptr)
 			Perl_croak(aTHX_ "ent  is nullptr, avoiding crash.");
 
-		THIS->RemoveFromHateList(ent);
+		THIS->CastToMob()->RemoveFromHateList(ent);
 
 	}
 	XSRETURN_EMPTY;