From 287974a58cf04ff72b586d681471ae5c59b45e78 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sun, 24 Apr 2022 14:33:56 -0700
Subject: [PATCH] Handle ../ above current level.

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

diff --git a/common/including.fs b/common/including.fs
index ecdd1c5..247cea1 100644
--- a/common/including.fs
+++ b/common/including.fs
@@ -54,7 +54,7 @@ internals definitions
   a# b# + { r# } r# cell+ cell+ allocate throw { r }
   2 cells +to r
   b c@ [char] / = if 0 to a# then
-  begin b b# starts../ while
+  begin b b# starts../ a# 0<> and while
     3 +to b -3 +to b#
     a a# dirname to a# to a
     a# b# + to r#