From 342bacdf0122ed31638df365b8ad45c024a445f9 Mon Sep 17 00:00:00 2001
From: Kyle Isom <kyle@imap.cc>
Date: Thu, 1 Mar 2018 19:40:49 -0800
Subject: [PATCH] misc/kforth: Store proper dictionary address.

---
 dict.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dict.cc b/dict.cc
index 90a798e..9c9f952 100644
--- a/dict.cc
+++ b/dict.cc
@@ -1629,7 +1629,7 @@ init_dict(System *sys)
 	sys->dict = new Builtin((const char *)"*", 1, sys->dict, mul);
 	sys->dict = new Builtin((const char *)"!", 1, sys->dict, store);
 	sys->dict = new Address((const char *)"ARENA", 5, sys->dict, reinterpret_cast<KF_ADDR>(&sys->arena));
-	sys->dict = new Address((const char *)"DICT", 5, sys->dict, reinterpret_cast<KF_ADDR>(&sys->dict));
+	sys->dict = new Address((const char *)"DICT", 4, sys->dict, reinterpret_cast<KF_ADDR>(&sys->dict));
 }
 
 bool