--- tie_file.tcl.orig	Mon Dec 12 12:27:27 2005
+++ tie_file.tcl	Mon Dec 12 12:27:58 2005
@@ -214,6 +214,7 @@
 	    close $new
 	    file rename -force ${path}.new $path
 	    set chan [open ${path} {RDWR EXCL APPEND}]
+	    fconfigure $chan -buffering none -encoding utf-8
 	} else {
 	    # Copy compacted journal over the existing one.
 	    file rename -force ${path}.new $path
