Index: modules/diagrams/pkgIndex.tcl
--- modules/diagrams/pkgIndex.tcl.orig
+++ modules/diagrams/pkgIndex.tcl
@@ -1,4 +1,4 @@
-if {![package vsatisfies [package provide Tcl] 8.5]} {
+if {![package vsatisfies [package provide Tcl] 8.5 9]} {
     # PRAGMA: returnok
     return
 }
