1 files changed, 2 insertions, 1 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test
index c40826b..eabc39a 100755
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -6,7 +6,7 @@
 # Copyright (c) 2000 by Ajuba Solutions
 # All rights reserved.
 #
-# RCS: @(#) $Id: tcltest.test,v 1.37.2.11 2006/03/19 22:47:30 vincentdarley Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.37.2.12 2009/11/10 22:32:39 patthoyts Exp $
 
 # Note that there are several places where the value of 
 # tcltest::currentFailure is stored/reset in the -setup/-cleanup
@@ -690,6 +690,7 @@ switch $tcl_platform(platform) {
 	file attributes $notWriteableDir -permissions 777
     }
     default {
+	catch {testchmod 777 $notWriteableDir}
 	catch {file attributes $notWriteableDir -readonly 0}
     }
 }