Index: modules/map/pkgIndex.tcl
--- modules/map/pkgIndex.tcl.orig
+++ modules/map/pkgIndex.tcl
@@ -1,4 +1,4 @@
-if {![package vsatisfies [package provide Tcl] 8.6]} { return }
+if {![package vsatisfies [package provide Tcl] 8.6 9]} { return }
 #
 package ifneeded map::area::display        0.1   [list source [file join $dir area-display.tcl]]
 package ifneeded map::area::file           0.1   [list source [file join $dir area-file.tcl]]
