Index: support/devel/sak/validate/testsuites.tcl
--- support/devel/sak/validate/testsuites.tcl.orig
+++ support/devel/sak/validate/testsuites.tcl
@@ -139,7 +139,7 @@ proc ::sak::validate::testsuites::Setup {} {
 	interp eval $ip [list ::rename $c {}]
     }
 
-    if {![package vsatisfies [package present Tcl] 8.6]} {
+    if {![package vsatisfies [package present Tcl] 8.6 9]} {
 	interp eval $ip [list ::namespace delete ::tcl]
     }
     interp eval $ip [list ::rename namespace {}]
