Restore the runnable example in STON class>>#toJsonString:

Author: svenvc

repository/STON-Core.package/STON.class/class/toJsonString..st

@@ -3,7 +3,7 @@ toJsonString: object
 	"Return a String with the JSON serialization of object.
 	Note that the object graph can only contain lists (Array) and maps (Dictionary)"
 
-	"STON toJsonString: { { #foo->1 } asDictionary. { #bar->2 } asDictionary }"
+	"(STON toJsonString: { { #foo->1 } asDictionary. { #bar->2 } asDictionary }) >>> '[{""foo"":1},{""bar"":2}]'"
 
 	^ String streamContents: [ :stream |
 			self put: object asJsonOnStream: stream ]