No comments

diff --git a/src/TCPPExt/TCPPExt.cxx b/src/TCPPExt/TCPPExt.cxx
index 337fe7fa0fb1b58033b7424c8c7c8cd5edf28239..c7a01e368de16e81adf2994f1bab78dd82479c30 100755 (executable)
--- 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());