If your requirement is just to capture everything in quotes, the simplest way is to translate when it has quotes. 

set object = ##class(%ZEN.proxyObject).%New()
set object.ID = ID
set object.ID = $TR(object.ID,"""","")
set x = ##class(%ZEN.Auxiliary.jsonArrayProvider).%WriteJSONStreamFromObject(.json,object)