2 files changed, 2 insertions, 2 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index c9029e6d88..b4d256f2ca 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -3,7 +3,7 @@
 #include "XSUB.h"
 
 #define UNIMPLEMENTED(x,y) y x (SV *sv, char *encoding) {   \
-                         Perl_croak("panic_unimplemented"); \
+                         Perl_croak(aTHX_ "panic_unimplemented"); \
 			 return (y)0; /* fool picky compilers */ \
                          } 
 UNIMPLEMENTED(_encoded_utf8_to_bytes, I32)
diff --git a/sv.c b/sv.c
index f5f6421d2d..561d9d92c4 100644
--- a/sv.c
+++ b/sv.c
@@ -2440,7 +2440,7 @@ Perl_sv_utf8_downgrade(pTHX_ register SV* sv, bool fail_ok)
 	    if (fail_ok)
 		return FALSE;
 	    else
-		Perl_croak("big byte");
+		Perl_croak(aTHX_ "big byte");
 	}
 	SvCUR(sv) = len - 1;
 	SvUTF8_off(sv);