2 files changed, 2 insertions, 2 deletions
diff --git a/cop.h b/cop.h
index 0b63c67973..d8c49613b2 100644
--- a/cop.h
+++ b/cop.h
@@ -474,6 +474,7 @@ struct block_loop {
 	else								\
 	    cx->blk_loop.itersave = NULL;
 #endif
+#define CxLABEL(c)	(0 + (c)->blk_loop.label)
 
 #ifdef USE_ITHREADS
 #  define PUSHLOOP_OP_NEXT		/* No need to do anything.  */
diff --git a/scope.c b/scope.c
index 17b778989c..c074b696c5 100644
--- a/scope.c
+++ b/scope.c
@@ -1085,8 +1085,7 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
 	break;
 
     case CXt_LOOP:
-	PerlIO_printf(Perl_debug_log, "BLK_LOOP.LABEL = %s\n",
-		cx->blk_loop.label);
+	PerlIO_printf(Perl_debug_log, "BLK_LOOP.LABEL = %s\n", CxLABEL(cx));
 	PerlIO_printf(Perl_debug_log, "BLK_LOOP.RESETSP = %ld\n",
 		(long)cx->blk_loop.resetsp);
 	PerlIO_printf(Perl_debug_log, "BLK_LOOP.MY_OP = 0x%"UVxf"\n",