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

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

diff --git a/tests/caf/bugs/B2 b/tests/caf/bugs/B2
index 68f0323..2c59ec5 100755 (executable)
--- a/tests/caf/bugs/B2
+++ b/tests/caf/bugs/B2
@@ -34,7 +34,7 @@ SetUAttribute Doc ${aLabel} ${aSetAttr2}
 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}] } {