From 2503afd828a26a5ce795825e67ef9bb47541be92 Mon Sep 17 00:00:00 2001
From: Jean-Claude Wippler <jcw@equi4.com>
Date: Thu, 20 Jan 2005 22:35:26 +0000
Subject: [PATCH] minor mk4vfs cleanup

---
 ChangeLog          | 4 ++++
 library/mk4vfs.tcl | 1 +
 2 files changed, 5 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 462d44d..bfaab42 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-01-20  Jean-Claude Wippler  <jcw@equi4.com>
+
+	* library/mk4vfs.tcl: added return in periodicCommit
+
 2004-11-22  Andreas Kupries( <andreask@activestate.com>
 
 	* Makefile.in (PKG_TCL_SOURCES): Added 'tkvfs.tcl' to the list of
diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index eb9c555..3c12f65 100644
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -363,6 +363,7 @@ namespace eval mk4vfs {
 	variable flush
 	set v::timer($db) [after $flush [list ::mk4vfs::periodicCommit $db]]
 	mk::file commit $db
+	return ;# 2005-01-20 avoid returning a value
     }
 
     proc _umount {db args} {
-- 
2.23.0