diff --git a/NYTProf.xs b/NYTProf.xs
index cef4e571..8e9d9fda 100644
--- a/NYTProf.xs
+++ b/NYTProf.xs
@@ -1278,7 +1278,7 @@ static int
 dopopcx_at(pTHX_ PERL_CONTEXT *cxstk, I32 startingblock, UV cx_type_mask)
 {
     I32 i;
-    register PERL_CONTEXT *cx;
+    PERL_CONTEXT *cx;
     for (i = startingblock; i >= 0; i--) {
         UV type_bit;
         cx = &cxstk[i];
@@ -1404,9 +1404,9 @@ visit_contexts(pTHX_ UV cx_type_mask, int (*callback)(pTHX_ PERL_CONTEXT *cx,
 UV *cx_type_mask_ptr))
 {
     /* modelled on pp_caller() in pp_ctl.c */
-    register I32 cxix = cxstack_ix;
-    register PERL_CONTEXT *cx = NULL;
-    register PERL_CONTEXT *ccstack = cxstack;
+    I32 cxix = cxstack_ix;
+    PERL_CONTEXT *cx = NULL;
+    PERL_CONTEXT *ccstack = cxstack;
     PERL_SI *top_si = PL_curstackinfo;
 
     if (trace_level >= 6)
diff --git a/bin/nytprofcalls b/bin/nytprofcalls
index e7735be0..92d72778 100755
--- a/bin/nytprofcalls
+++ b/bin/nytprofcalls
@@ -14,7 +14,7 @@ use strict;
 use Devel::NYTProf::Core;
 require Devel::NYTProf::Data;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
     
 use Data::Dumper;
 use Getopt::Long;
diff --git a/bin/nytprofcsv b/bin/nytprofcsv
index 3d6e88f4..e189b033 100755
--- a/bin/nytprofcsv
+++ b/bin/nytprofcsv
@@ -16,7 +16,7 @@ use Getopt::Long;
 
 use Devel::NYTProf::Reader;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 use constant NUMERIC_PRECISION => 5;
 
diff --git a/bin/nytprofhtml b/bin/nytprofhtml
index fb67d5c5..5f9708b3 100755
--- a/bin/nytprofhtml
+++ b/bin/nytprofhtml
@@ -61,7 +61,7 @@ use Devel::NYTProf::Util qw(
 );
 use Devel::NYTProf::Constants qw(NYTP_SCi_CALLING_SUB);
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 if ($VERSION != $Devel::NYTProf::Core::VERSION) {
     die "$0 version '$VERSION' doesn't match version '$Devel::NYTProf::Core::VERSION' of $INC{'Devel/NYTProf/Core.pm'}\n";
diff --git a/bin/nytprofmerge b/bin/nytprofmerge
index 327f41a5..ad2e15ae 100755
--- a/bin/nytprofmerge
+++ b/bin/nytprofmerge
@@ -16,7 +16,7 @@ require Devel::NYTProf::FileHandle;
 require Devel::NYTProf::Data;
 use List::Util qw(min sum);
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
     
 if ($VERSION != $Devel::NYTProf::Core::VERSION) {
     die "$0 version '$VERSION' doesn't match version '$Devel::NYTProf::Core::VERSION' of $INC{'Devel/NYTProf/Core.pm'}\n";
diff --git a/lib/Devel/NYTProf.pm b/lib/Devel/NYTProf.pm
index 7842d65a..41e142b4 100644
--- a/lib/Devel/NYTProf.pm
+++ b/lib/Devel/NYTProf.pm
@@ -9,7 +9,7 @@
 ###########################################################
 package Devel::NYTProf;
 
-our $VERSION = '6.12_003'; # also change in Devel::NYTProf::Core
+our $VERSION = '6.12_004'; # also change in Devel::NYTProf::Core
 
 package    # hide the package from the PAUSE indexer
     DB;
diff --git a/lib/Devel/NYTProf/Apache.pm b/lib/Devel/NYTProf/Apache.pm
index 1edae392..71815fe2 100644
--- a/lib/Devel/NYTProf/Apache.pm
+++ b/lib/Devel/NYTProf/Apache.pm
@@ -9,7 +9,7 @@
 ###########################################################
 package Devel::NYTProf::Apache;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 BEGIN {
 
diff --git a/lib/Devel/NYTProf/Core.pm b/lib/Devel/NYTProf/Core.pm
index c97e3b0d..7ec67af6 100644
--- a/lib/Devel/NYTProf/Core.pm
+++ b/lib/Devel/NYTProf/Core.pm
@@ -12,7 +12,7 @@ package Devel::NYTProf::Core;
 
 use XSLoader;
 
-our $VERSION = '6.12_003';    # increment with XS changes too
+our $VERSION = '6.12_004';    # increment with XS changes too
 
 XSLoader::load('Devel::NYTProf', $VERSION);
 
diff --git a/lib/Devel/NYTProf/Data.pm b/lib/Devel/NYTProf/Data.pm
index 68361f82..92b2df9f 100644
--- a/lib/Devel/NYTProf/Data.pm
+++ b/lib/Devel/NYTProf/Data.pm
@@ -55,7 +55,7 @@ use Devel::NYTProf::FileInfo;
 use Devel::NYTProf::SubInfo;
 use Devel::NYTProf::Util qw( trace_level _dumper );
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 
 =head2 new
diff --git a/lib/Devel/NYTProf/ReadStream.pm b/lib/Devel/NYTProf/ReadStream.pm
index 320a7484..d5543e8c 100644
--- a/lib/Devel/NYTProf/ReadStream.pm
+++ b/lib/Devel/NYTProf/ReadStream.pm
@@ -3,7 +3,7 @@ package Devel::NYTProf::ReadStream;
 use warnings;
 use strict;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 use base 'Exporter';
 our @EXPORT_OK = qw(
diff --git a/lib/Devel/NYTProf/Reader.pm b/lib/Devel/NYTProf/Reader.pm
index cae99179..40a55a8a 100644
--- a/lib/Devel/NYTProf/Reader.pm
+++ b/lib/Devel/NYTProf/Reader.pm
@@ -9,7 +9,7 @@
 ###########################################################
 package Devel::NYTProf::Reader;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 use warnings;
 use strict;
diff --git a/lib/Devel/NYTProf/Util.pm b/lib/Devel/NYTProf/Util.pm
index 24f2e0ed..4379674b 100644
--- a/lib/Devel/NYTProf/Util.pm
+++ b/lib/Devel/NYTProf/Util.pm
@@ -40,7 +40,7 @@ use Cwd qw(getcwd);
 use List::Util qw(sum);
 use Devel::NYTProf::Core;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 our @EXPORT_OK = qw(
     fmt_float
diff --git a/ppport.h b/ppport.h
index a6cf6b59..257fae70 100644
--- a/ppport.h
+++ b/ppport.h
@@ -6819,7 +6819,7 @@ DPPP_dopoptosub_at(const PERL_CONTEXT *cxstk, I32 startingblock)
     I32 i;
 
     for (i = startingblock; i >= 0; i--) {
-	register const PERL_CONTEXT * const cx = &cxstk[i];
+	const PERL_CONTEXT * const cx = &cxstk[i];
 	switch (CxTYPE(cx)) {
 	default:
 	    continue;
@@ -6851,9 +6851,9 @@ extern const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONT
 const PERL_CONTEXT *
 DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp)
 {
-    register I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix);
-    register const PERL_CONTEXT *cx;
-    register const PERL_CONTEXT *ccstack = cxstack;
+    I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix);
+    const PERL_CONTEXT *cx;
+    const PERL_CONTEXT *ccstack = cxstack;
     const PERL_SI *top_si = PL_curstackinfo;
 
     for (;;) {