ADDED   mk4tcl/patches/all/metakit-2.4.9.7-unregisterchans.diff
Index: mk4tcl/patches/all/metakit-2.4.9.7-unregisterchans.diff
==================================================================
--- /dev/null
+++ mk4tcl/patches/all/metakit-2.4.9.7-unregisterchans.diff
@@ -0,0 +1,14 @@
+diff -uNr metakit-2.4.9.7.orig/tcl/mk4tcl.cpp metakit-2.4.9.7-1unregisterchans/tcl/mk4tcl.cpp
+--- metakit-2.4.9.7.orig/tcl/mk4tcl.cpp	2007-06-18 16:05:24.000000000 -0500
++++ metakit-2.4.9.7-1unregisterchans/tcl/mk4tcl.cpp	2014-05-20 00:55:56.857516999 -0500
+@@ -737,6 +737,10 @@
+ MkWorkspace::~MkWorkspace() {
+   CleanupCommands();
+ 
++  for (MkChannel *chan = _chanList; chan; chan = chan->_next) {
++    Tcl_UnregisterChannel(_interp, chan->_chan);
++  }
++
+   for (int i = _items.GetSize(); --i >= 0;)
+     delete Nth(i);
+