From 723754e2a39a89d50bc0a2152df6a96a437c2e7f Mon Sep 17 00:00:00 2001
From: kgv <kgv@opencascade.org>
Date: Sat, 2 Feb 2013 10:32:07 +0400
Subject: [PATCH] 0023739: Execution of Draw Harness command "test" failed

---
 src/DrawResources/TestCommands.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index c20687dcd7..c2bb23ad3b 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -1912,7 +1912,7 @@ proc load_data_file {file format shape} {
 # procedure to get name of temporary directory,
 # ensuring it is existing and writeable 
 proc _get_temp_dir {} {
-    global env
+    global env tcl_platform
 
     # check typical environment variables 
     foreach var {TempDir Temp Tmp} {
@@ -1939,7 +1939,7 @@ proc _get_temp_dir {} {
         }
     }
     foreach dir $paths {
-        if { [file isdirectory $dir] && [file iswritable $dir] } {
+        if { [file isdirectory $dir] && [file writable $dir] } {
             return $dir
         }
     }