Index: example/main.tcl
==================================================================
--- example/main.tcl
+++ example/main.tcl
@@ -133,11 +133,11 @@
 	cd $rootDir
 	pwd
 } -cleanup {
 	cd $startDir
 	unset startDir
-} -result $rootDir
+} -constraints tcl87 -result $rootDir
 
 tcltest::test xvfs-cwd-2 "Xvfs Can Be cwd" -setup {
 	set startDir [pwd]
 } -body {
 	cd $rootDir
@@ -144,11 +144,11 @@
 	cd lib
 	lindex [glob *] 0
 } -cleanup {
 	cd $startDir
 	unset startDir
-} -result "hello"
+} -constraints tcl87 -result "hello"
 
 # Currently broken
 tcltest::test xvfs-package "Xvfs Can Be Package Directory" -setup {
 	set startAutoPath $auto_path
 	lappend auto_path ${rootDir}/lib