@@ -19,25 +19,34 @@
   if {[info exists tcl_rcFileName]} {
     load {} vfs
 
     # lookup and emulate "source" of lib/vfs/{vfs*.tcl,mk4vfs.tcl}
     # must use raw MetaKit calls because VFS is not yet in place
-    set d [mk::select exe.dirs parent 0 name lib]
-    set d [mk::select exe.dirs parent $d name vfs]
+    set d [${::tclkitMkNamespace}::select exe.dirs parent 0 name lib]
+    set d [${::tclkitMkNamespace}::select exe.dirs parent $d name vfs]
     
     foreach x {vfsUtils vfslib mk4vfs} {
-      set n [mk::select exe.dirs!$d.files name $x.tcl]
-      set s [mk::get exe.dirs!$d.files!$n contents]
+      set n [${::tclkitMkNamespace}::select exe.dirs!$d.files name $x.tcl]
+      set s [${::tclkitMkNamespace}::get exe.dirs!$d.files!$n contents]
       catch {set s [zlib decompress $s]}
       uplevel #0 $s
     }
 
     # use on-the-fly decompression, if mk4vfs understands that
-    set mk4vfs::zstreamed 1
+    switch -- $::tclkitMkNamespace {
+        "mk" {
+            set mk4vfs::zstreamed 1
+            set vfsimpl "mk4"
+        }
+        "readkit" {
+            set mkcl_vfs::zstreamed 1
+            set vfsimpl "mkcl"
+        }
+    }
 
     # mount the executable, i.e. make all runtime files available
-    vfs::filesystem mount $noe [list ::vfs::mk4::handler exe]
+    vfs::filesystem mount $noe [list ::vfs::${vfsimpl}::handler exe]
 
     # alter path to find encodings
     if {[info tclversion] eq "8.4"} {
       load {} pwb
       librarypath [info library]
@@ -63,11 +72,11 @@
   	# Resolve symlinks
   	set noe [file dirname [file normalize [file join $noe __dummy__]]]
 
     set tcl_library [file join $noe lib tcl$tcl_version]
     set tcl_libPath [list $tcl_library [file join $noe lib]]
-    vfs::filesystem mount $noe [list ::vfs::mk4::handler exe]
+    vfs::filesystem mount $noe [list ::vfs::${vfsimpl}::handler exe]
   }
   
   # load config settings file if present
   namespace eval ::vfs { variable tclkit_version 1 }
   catch { uplevel #0 [list source [file join $noe config.tcl]] }
@@ -74,6 +83,8 @@
 
   uplevel #0 [list source [file join $tcl_library init.tcl]]
   
 # reset auto_path, so that init.tcl's search outside of tclkit is cancelled
   set auto_path $tcl_libPath
+
+  unset ::tclkitMkNamespace
 }