Index: TECH/JSON/ParserIntersystemsVersion.cls.xml =================================================================== diff -u -r3899 -r3903 --- TECH/JSON/ParserIntersystemsVersion.cls.xml (.../ParserIntersystemsVersion.cls.xml) (revision 3899) +++ TECH/JSON/ParserIntersystemsVersion.cls.xml (.../ParserIntersystemsVersion.cls.xml) (revision 3903) @@ -670,9 +670,8 @@ If (tClientType = "HANDLE") { // object If $IsObject(tValue) { - Set tSC = ..ObjectToJSON(tValue,.pVisited, pLevel + 1, .Json) + Set tSC = ..ObjectToJSONZonderKlasseNaam(tValue,.pVisited, pLevel + 1, .Json) If $$$ISERR(tSC) { - Do ##class(Tools.Wlip).%New(43).String("handle error top") Quit } Else { Set JsonStringOutput = JsonStringOutput_Json @@ -714,9 +713,8 @@ If (tClientType = "HANDLE") { // object If $IsObject(tValue) { - Set tSC = ..ObjectToJSON(tValue,.pVisited, pLevel + 1, .Json) + Set tSC = ..ObjectToJSONZonderKlasseNaam(tValue,.pVisited, pLevel + 1, .Json) If $$$ISERR(tSC) { - Do ##class(Tools.Wlip).%New(43).String("handle error") Quit } Else { Set JsonStringOutput = JsonStringOutput_Json @@ -742,7 +740,7 @@ ElseIf (tClientType = "HANDLE") { // object If $IsObject(tValue) { - Set tSC = ..ObjectToJSON(tValue,.pVisited, pLevel + 1,.Json) + Set tSC = ..ObjectToJSONZonderKlasseNaam(tValue,.pVisited, pLevel + 1,.Json) If $$$ISERR(tSC) { Quit } Else {