From d16b64f1ec47cd9a8a6c53000a85ef7c2203247f Mon Sep 17 00:00:00 2001
From: ibs <ibs@opencascade.com>
Date: Tue, 4 Mar 2014 12:06:46 +0400
Subject: [PATCH] 0024679: test command doesn't work with tmp path containing
 white spaces

---
 src/DrawResources/TestCommands.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index a477cd4dc7..bcbc8ed015 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -913,7 +913,7 @@ proc _run_test {scriptsdir group gridname casefile echo} {
                 set imagedir $rootlogdir
             }
 
-            uplevel set imagedir $imagedir
+            uplevel set imagedir \"$imagedir\"
 	}
 
 	# execute test scripts