From 8fde921fbea7c13d679759be26f7bcbff11ac086 Mon Sep 17 00:00:00 2001
From: vro <vro@opencascade.com>
Date: Tue, 15 Sep 2020 11:36:11 +0300
Subject: [PATCH] 0031759: Application Framework - regression: support of old
 versions of OCAF document fails

---
 src/XmlMDF/XmlMDF.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/XmlMDF/XmlMDF.cxx b/src/XmlMDF/XmlMDF.cxx
index 33e55ae9a6..33711f40f1 100644
--- a/src/XmlMDF/XmlMDF.cxx
+++ b/src/XmlMDF/XmlMDF.cxx
@@ -107,7 +107,7 @@ Standard_Integer XmlMDF::WriteSubTree
       // was replaced by TDataXtd_Presentation. Therefore, for old versions
       // we write old name of the attribute (TPrsStd_AISPresentation).
       Standard_CString typeName = aDriver->TypeName().ToCString();
-      if (XmlLDrivers::StorageVersion() < 8 &&
+      if (theRelocTable.GetHeaderData()->StorageVersion().IntegerValue() < 8 &&
           strcmp(typeName, "TDataXtd_Presentation") == 0)
       {
         typeName = "TPrsStd_AISPresentation";