From 81fd37045878d80649d29b41dd319bebac6033b3 Mon Sep 17 00:00:00 2001
From: Johan Kotlinski <kotlinski@gmail.com>
Date: Wed, 25 Dec 2024 10:33:02 +0100
Subject: [PATCH] fix v crash when entering ":w!"

---
 CHANGELOG.md | 2 ++
 forth/v.fs   | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index f71188f7..30f9578c 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -8,6 +8,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ### Added
  - S" now works in interpretation mode. It returns a transient buffer.
  - STRING, stores a counted string.
+### Fixed
+ - V: crash when entering ":w!"
 
 ## [5.0.0] - 2024-11-19
 ### Added
diff --git a/forth/v.fs b/forth/v.fs
index e4c0fab4..7f8b01ff 100644
--- a/forth/v.fs
+++ b/forth/v.fs
@@ -579,7 +579,8 @@ case \ keys that can quit
       '!' of
         need-refresh!
         '!' emit here $f accept
-        ?dup 0= if exit then
+        dup 0= if clear-status exit
+               then
         filename c! here
         filename count move
         write-file