punkcheck - try flush after writing file

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

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