From 0bc8e5ae00a3d2f2f21e8e0e6df4dcb2f6d6da3b Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Thu, 14 May 2026 13:44:29 +1000
Subject: [PATCH] punkcheck - try flush after writing file

---
 src/bootsupport/modules/punkcheck-0.1.0.tm | 1 +
 src/modules/punkcheck-0.1.0.tm             | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/bootsupport/modules/punkcheck-0.1.0.tm b/src/bootsupport/modules/punkcheck-0.1.0.tm
index 33eaff21..f92e641a 100644
--- a/src/bootsupport/modules/punkcheck-0.1.0.tm
+++ b/src/bootsupport/modules/punkcheck-0.1.0.tm
@@ -91,6 +91,7 @@ namespace eval punkcheck {
             set fd [open $punkcheck_file w]
             chan configure $fd -translation binary
             puts -nonewline $fd $newtdl
+            flush $fd
             close $fd
             return [list recordcount [llength $recordlist] linecount $linecount]
         }
diff --git a/src/modules/punkcheck-0.1.0.tm b/src/modules/punkcheck-0.1.0.tm
index 33eaff21..f92e641a 100644
--- a/src/modules/punkcheck-0.1.0.tm
+++ b/src/modules/punkcheck-0.1.0.tm
@@ -91,6 +91,7 @@ namespace eval punkcheck {
             set fd [open $punkcheck_file w]
             chan configure $fd -translation binary
             puts -nonewline $fd $newtdl
+            flush $fd
             close $fd
             return [list recordcount [llength $recordlist] linecount $linecount]
         }