0032705: Test - name clashes within temporary files within bugs/caf/bug23766_X

[occt.git] / tests / caf / bugs / B4

diff --git a/tests/caf/bugs/B4 b/tests/caf/bugs/B4
index 91cd1c4..c30e718 100755 (executable)
--- a/tests/caf/bugs/B4
+++ b/tests/caf/bugs/B4
@@ -40,7 +40,7 @@ SetReference Doc ${aLabel4} ${aReference1}
 NewCommand Doc
 
 # Save the document
-set aFile ${imagedir}/OCC1228-[file tail [info script]].cbf
+set aFile ${imagedir}/OCC1228-${casename}.cbf
 file delete ${aFile}
 catch {SaveAs Doc ${aFile}}
 if { ![file exists ${aFile}] } {