Index: modules/canvas/pkgIndex.tcl
--- modules/canvas/pkgIndex.tcl.orig
+++ modules/canvas/pkgIndex.tcl
@@ -1,7 +1,4 @@
-if {![package vsatisfies [package provide Tcl] 8.4]} {return}
-package ifneeded canvas::sqmap 0.3.1 [list source [file join $dir canvas_sqmap.tcl]]
-package ifneeded canvas::zoom  0.2.1 [list source [file join $dir canvas_zoom.tcl]]
-if {![package vsatisfies [package provide Tcl] 8.5]} { return }
+if {![package vsatisfies [package provide Tcl] 8.5 9]} { return }
 package ifneeded canvas::drag                0.1   [list source [file join $dir canvas_drag.tcl]]
 package ifneeded canvas::edit::circle        0.1   [list source [file join $dir canvas_ecircle.tcl]]
 package ifneeded canvas::edit::points        0.3   [list source [file join $dir canvas_epoints.tcl]]
@@ -12,5 +9,7 @@ package ifneeded canvas::gradient            0.2   [li
 package ifneeded canvas::highlight           0.1   [list source [file join $dir canvas_highlight.tcl]]
 package ifneeded canvas::mvg                 1     [list source [file join $dir canvas_mvg.tcl]]
 package ifneeded canvas::snap                1.0.1 [list source [file join $dir canvas_snap.tcl]]
+package ifneeded canvas::sqmap               0.3.1 [list source [file join $dir canvas_sqmap.tcl]]
 package ifneeded canvas::tag                 0.1   [list source [file join $dir canvas_tags.tcl]]
 package ifneeded canvas::track::lines        0.1   [list source [file join $dir canvas_trlines.tcl]]
+package ifneeded canvas::zoom                0.2.1 [list source [file join $dir canvas_zoom.tcl]]
