diff --git a/zone/perl_npc.cpp b/zone/perl_npc.cpp
index fc5d791a7..59a55e49f 100644
--- a/zone/perl_npc.cpp
+++ b/zone/perl_npc.cpp
@@ -2479,7 +2479,7 @@ XS(XS_NPC_SetSimpleRoamBox) {
 XS(XS_NPC_RecalculateSkills); /* prototype to pass -Wmissing-prototypes */
 XS(XS_NPC_RecalculateSkills) {
 	dXSARGS;
-	if (items != 2)
+	if (items != 1)
 		Perl_croak(aTHX_ "Usage: NPC::RecalculateSkills(THIS)");
 	{
 		NPC    *THIS;