sj3: bskey configuration (malfunction)

diff --git a/Sjrc b/Sjrc
index 879eccb..2e73168 100644
--- a/Sjrc
+++ b/Sjrc
@@ -63,6 +63,7 @@
 #.key.toggle		^G
 #.key.reconnect		^R
 #.delkey		^D
+.bskey			^?

 #	文字種切り替えキーを押すと決定する
 #.FlushAfterConversion	on
diff --git a/eucmessage.c b/eucmessage.c
index 5f19017..abdab71 100644
--- a/eucmessage.c
+++ b/eucmessage.c
@@ -381,7 +381,8 @@ void init_funcs(void)
 	funcs[19].keyword = WCRkerrbell;        funcs[19].func = set_rkebell;
 	funcs[20].keyword = WCServer;           funcs[20].func = set_server;
 	funcs[21].keyword = WCDictionary;       funcs[21].func = set_dict;
-	funcs[22].keyword = NULL;               funcs[22].func = NULL;
+	funcs[22].keyword = WCBskey;            funcs[22].func = set_bskey;
+	funcs[23].keyword = NULL;               funcs[23].func = NULL;
 }

 struct valtbl mode_val[5];
diff --git a/sj3.h b/sj3.h
index d7491cc..2697192 100644
--- a/sj3.h
+++ b/sj3.h
@@ -371,6 +371,7 @@ int isDelimitor(unsigned char); // -> sjrc.c
 void set_forkshell(struct wordent[]);
 void set_intr(struct wordent[]);
 void set_delkey(struct wordent[]);
+void set_bskey(struct wordent[]);
 int isintr(unsigned char);
 void set_goto(struct wordent[]);
 int IsGoto(unsigned char);
diff --git a/sjrc2.c b/sjrc2.c
index 5513d71..e872f0c 100644
--- a/sjrc2.c
+++ b/sjrc2.c
@@ -445,6 +445,15 @@ void set_delkey(struct wordent word[])
 			set_del (c);
 }

+void set_bskey(struct wordent word[])
+{
+	int	c;
+
+	if (word[1].word_str[0] != '\0')
+		if ((c = eval_key (word[1].word_str)) != -1)
+			set_bs (c);
+}
+
 int isintr(unsigned char c)
 {
 	if (c == intr_code)