+++ /dev/null
-Index: support/devel/sak/validate/syntax.tcl
-==================================================================
---- support/devel/sak/validate/syntax.tcl
-+++ support/devel/sak/validate/syntax.tcl
-@@ -192,11 +192,13 @@
- if {[string equal $c rename]} continue
- if {[string equal $c namespace]} continue
- interp eval $ip [list ::rename $c {}]
- }
-
-- interp eval $ip [list ::namespace delete ::tcl]
-+ if {![package vsatisfies [package present Tcl] 8.6]} {
-+ interp eval $ip [list ::namespace delete ::tcl]
-+ }
- interp eval $ip [list ::rename namespace {}]
- interp eval $ip [list ::rename rename {}]
-
- foreach m {
- pcx::register unknown
-
-Index: support/devel/sak/validate/testsuites.tcl
-==================================================================
---- support/devel/sak/validate/testsuites.tcl
-+++ support/devel/sak/validate/testsuites.tcl
-@@ -137,11 +137,13 @@
- if {[string equal $c rename]} continue
- if {[string equal $c namespace]} continue
- interp eval $ip [list ::rename $c {}]
- }
-
-- interp eval $ip [list ::namespace delete ::tcl]
-+ if {![package vsatisfies [package present Tcl] 8.6]} {
-+ interp eval $ip [list ::namespace delete ::tcl]
-+ }
- interp eval $ip [list ::rename namespace {}]
- interp eval $ip [list ::rename rename {}]
-
- foreach m {
- testing unknown useLocal useLocalKeep useAccel