diff --git a/src/core/Encoding/Registry.pm6 b/src/core/Encoding/Registry.pm6
index 780521882fd..a3b5d05456e 100644
--- a/src/core/Encoding/Registry.pm6
+++ b/src/core/Encoding/Registry.pm6
@@ -19,6 +19,7 @@ my class Encoding::Registry {
             'latin1','latin-1','csisolatin1','l1','ibm819','cp819'),
           nqp::list('windows-1251', 'windows1251'),
           nqp::list('windows-1252', 'windows1252'),
+          nqp::list('windows-932', 'windows932')
         );
         my int $i = -1;
         my int $elems = nqp::elems($encodings);
diff --git a/src/core/Rakudo/Internals.pm6 b/src/core/Rakudo/Internals.pm6
index 2a7e0c5fd7b..9d6f7f72aaf 100644
--- a/src/core/Rakudo/Internals.pm6
+++ b/src/core/Rakudo/Internals.pm6
@@ -299,6 +299,9 @@ my class Rakudo::Internals {
       # windows-1252
       'windows-1252',    'windows-1252',
       'windows1252',    'windows-1252',
+      # ShiftJIS
+      'windows-932',     'windows-932',
+      'windows932',      'windows-932',
     );
     method NORMALIZE_ENCODING(Str:D \encoding) {
         my str $key = nqp::unbox_s(encoding);