diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp index 7ff54895b5b..e0aaf3fcb75 100644 --- a/src/Perl6/Actions.nqp +++ b/src/Perl6/Actions.nqp @@ -7376,7 +7376,7 @@ class Perl6::Actions is HLL::Actions does STDActions { } method hexint($/) { my int $chars := nqp::chars($/); - make $chars > ($?BITS == 64 ?? 14 !! 8) + make $chars > ($?BITS == 64 ?? 14 !! 7) ?? string_to_bigint($/, 16, $chars) !! string_to_int($/, 16, $chars); }