--- tcl-vfs-1.3/library/mk4vfs.tcl..thrill	2006-07-22 20:24:44 +0400
+++ tcl-vfs-1.3/library/mk4vfs.tcl	2006-07-22 20:40:49 +0400
@@ -19,6 +19,7 @@
 package provide mk4vfs 1.10
 package provide vfs::mk4 1.10
 package require vfs
+package require Mk4tcl
 
 # need this so init failure in interactive mode does not mess up errorInfo
 if {[info exists env(VFS_DEBUG)] && [info commands history] == ""} {
@@ -38,12 +39,6 @@
 
 namespace eval vfs::mk4 {
     proc Mount {mkfile local args} {
-        # 2005-10-19 switch to MK Compatible Lite driver if there is no Mk4tcl 
-	if {[catch { package require Mk4tcl }]} {
-	  package require vfs::mkcl
-	  return [eval [linsert $args 0 vfs::mkcl::Mount $mkfile $local]]
-	}
-
 	if {$mkfile != ""} {
 	  # dereference a symlink, otherwise mounting on it fails (why?)
 	  catch {