From 6de02783fcfdbd73de74c098a04e52053bcbdf56 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sun, 9 Jan 2022 09:22:21 -0800
Subject: [PATCH] Fix mismatch with see. and string layout.

---
 ueforth/common/utils.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ueforth/common/utils.fs b/ueforth/common/utils.fs
index 5ae959b..23a0e99 100644
--- a/ueforth/common/utils.fs
+++ b/ueforth/common/utils.fs
@@ -44,7 +44,7 @@ internals definitions
    dup ['] DOLIT = if drop dup @ . cell+ exit then
    dup ['] DOFLIT = if drop dup sf@ <# [char] e hold #fs #> type space cell+ exit then
    dup ['] $@ = if drop ['] s" see.
-                   dup @ dup >r >r dup cell+ r> type cell+ r> aligned +
+                   dup @ dup >r >r dup cell+ r> type cell+ r> 1+ aligned +
                    [char] " emit space exit then
    dup  ['] BRANCH =
    over ['] 0BRANCH = or