diff --git a/src/modules/Perl/perlmod.c b/src/modules/Perl/perlmod.c
index 9a936caabeeb7f8bf1d8fe5bf4b80c305b86d6b7..73809f6f3e423513cc0d3c6e8bf3c0d0f1da8324 100644
--- a/src/modules/Perl/perlmod.c
+++ b/src/modules/Perl/perlmod.c
@@ -152,7 +152,7 @@ static void perlmod_create(INT32 args)
 	error("Perl: Too few elements in argv array.\n");
 
       if(THIS->argv_strings->type_field & ~BIT_STRING)
-	error("Bad argument 2 to Perl->create().\n");
+	error("Bad argument 1 to Perl->create().\n");
   }
 
   THIS->argv=(char **)xalloc(sizeof(char *)*THIS->argv_strings->size);