From 340d5f8957785eb2c5f8d63b06e3fbc13fa66239 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Fri, 14 Jan 2000 18:03:38 +0000
Subject: [PATCH] No comments

---
 src/TCPPExt/TCPPExt.cxx | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/TCPPExt/TCPPExt.cxx b/src/TCPPExt/TCPPExt.cxx
index 337fe7f..c7a01e3 100755
--- a/src/TCPPExt/TCPPExt.cxx
+++ b/src/TCPPExt/TCPPExt.cxx
@@ -157,7 +157,19 @@ Handle(TCollection_HAsciiString) TCPP_BuildParameterList(const Handle(MS_MetaSch
       
 	if (aType->IsKind(STANDARD_TYPE(MS_Class))) {
 	  aClass = Handle(MS_Class)::DownCast(aType);
+//---> EUG BUC60592
+     if (   aClass -> IsKind (  STANDARD_TYPE( MS_InstClass )  ) &&
+           !aClass -> IsKind (  STANDARD_TYPE( MS_StdClass  )  )
+     ) {
 
+      Handle( MS_InstClass ) :: DownCast ( aClass ) -> InstToStd ();
+
+      aType = aMeta -> GetType (  aSeq -> Value ( i ) -> TypeName ()  );
+
+	  aClass = Handle( MS_Class ) :: DownCast ( aType );
+
+     }  // end if
+//<--- EUG BUC60592
 	  if (aClass->IsPersistent() || aClass->IsTransient()) {
 	    result->AssignCat("Handle(");
 	    result->AssignCat(aSeq->Value(i)->TypeName());
-- 
2.39.5