Index: guile-2.2.4/test-suite/standalone/Makefile.am
===================================================================
--- guile-2.2.4.orig/test-suite/standalone/Makefile.am
+++ guile-2.2.4/test-suite/standalone/Makefile.am
@@ -183,6 +183,10 @@ TESTS += test-mb-regexp
 check_SCRIPTS += test-use-srfi
 TESTS += test-use-srfi
 
+# test-ja_JP.sjis
+check_SCRIPTS += test-ja_JP.sjis
+TESTS += test-ja_JP.sjis
+
 # test-scm-c-read
 test_scm_c_read_SOURCES = test-scm-c-read.c
 test_scm_c_read_CFLAGS = ${test_cflags}
Index: guile-2.2.4/test-suite/standalone/test-ja_JP.sjis
===================================================================
--- /dev/null
+++ guile-2.2.4/test-suite/standalone/test-ja_JP.sjis
@@ -0,0 +1,7 @@
+#!/bin/sh
+# Test whether guile can run initialization code using ja_JP.sjis locale
+# (bug #33044).
+export LC_CTYPE
+LC_CTYPE=ja_JP.sjis
+exec guile -q -s "$0" "$@"
+!#
Index: guile-2.2.4/test-suite/standalone/Makefile.in
===================================================================
--- guile-2.2.4.orig/test-suite/standalone/Makefile.in
+++ guile-2.2.4/test-suite/standalone/Makefile.in
@@ -97,7 +97,8 @@ TESTS = test-system-cmds test-bad-identi
 	test-list$(EXEEXT) test-unwind$(EXEEXT) \
 	test-conversion$(EXEEXT) test-loose-ends$(EXEEXT) \
 	test-fast-slot-ref test-mb-regexp test-use-srfi \
-	test-scm-c-read$(EXEEXT) test-scm-take-locale-symbol$(EXEEXT) \
+	test-ja_JP.sjis test-scm-c-read$(EXEEXT) \
+	test-scm-take-locale-symbol$(EXEEXT) \
 	test-scm-take-u8vector$(EXEEXT) \
 	test-scm-to-latin1-string$(EXEEXT) test-scm-values$(EXEEXT) \
 	test-scm-c-bind-keyword-arguments$(EXEEXT) \