Magritte -> Json

Hi, I'm experimenting with a JSON converter for objects with Magritte descriptions. So far I've added the following to GRObject: jsonOn: aStream | description | description := self description. description children isEmpty ifFalse: [ | first | first := true. aStream nextPut: ${. description do: [ :each | first ifTrue: [ first := false ] ifFalse: [ aStream nextPut: $, ]. aStream json: each label; nextPut: $:; json: (each accessor read: self) ]. aStream nextPut: $} ] you can then generate JSON from an object, for example: ((PRPage named: 'examplePage') contents: '!!Hello', String crlf, 'Hello ""world"" check') asJson gives: '{"Name":"examplePage","Visibility":false,"Navigation Title":"ExamplePage","Tags":[],"Title":"ExamplePage","Owner":null,"Group":null,"Contents":{},"Plain Text":"Hello\rHello world check","Environment":null,"Style Sheet":null,"Shortcut Icon":null,"CSS Classes":null}' The method fails with recursive structures, but otherwise is appears to work well. Does this look like a sensible approach? Has anyone else implemented anything similar? Thanks Nick