0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / xml / begin
index f5cc9f7..8308f7e 100755 (executable)
@@ -43,7 +43,7 @@ proc SaveToFile { aD aFile } {
     upvar $aD D 
     global FileSuffix ValidatorCheck
     catch {[file delete ${aFile}]}
-    SaveAs D $aFile
+    SaveAs $D $aFile
     if { [file exists $aFile] } {
        if { $FileSuffix == "xml" && $ValidatorCheck} {
            ValidateXml $aFile