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]
         }