From 1310d1291b5a5433f9e68c93258682b9df157ddc Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 09:40:29 +0900
Subject: [PATCH] Fixed a bug of "B"

---
 core.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core.fs b/core.fs
index 8c6fe8f..75b933a 100644
--- a/core.fs
+++ b/core.fs
@@ -189,7 +189,7 @@ c~ i,
 
 \ 'B' ( c -- ) C-COMMA
 \ Store byte 'c' to here and increment it
-cB i, 'h, '@, '$, 'h, 'L, k1k0-, '+, 'h, '!, 'e, l!
+cB i, 'h, '@, '$, 'h, '@, 'L, k1k0-, '+, 'h, '!, 'e, l!
 
 \ 'a' ( c-addr -- a-addr ) ALIGNED
 \ Round up 'a' to a multiple of CELL