diff -r 19f5a590cae1 -r adface297050 extensions.st
--- a/extensions.st	Wed Dec 11 11:50:26 2019 +0100
+++ b/extensions.st	Wed Dec 11 13:45:34 2019 +0100
@@ -1094,7 +1094,7 @@
 
     attrs := super inspectorExtraAttributes.
     JSONPrinter notNil ifTrue:[
-        attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self ])
+        attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self printLimit:(JSONPrinter defaultPrettyPrintLimit) ])
     ].
     ^ attrs
 
@@ -2420,7 +2420,7 @@
 
     countRecursive := 0.
     [
-        jsonString := jsonPrinter encodePrettyPrinted:self.
+        jsonString := jsonPrinter encodePrettyPrinted:self printLimit:(JSONPrinter defaultPrettyPrintLimit).
     ] on:Error do:[:ex |
         (ex isKindOf:RecursionError) ifTrue:[
             ex originator == JSONPrinter ifTrue:[
@@ -2941,7 +2941,7 @@
 
     attrs := super inspectorExtraAttributes.
     JSONPrinter notNil ifTrue:[
-        attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self ])
+        attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self printLimit:(JSONPrinter defaultPrettyPrintLimit)  ])
     ].
     ^ attrs
 
@@ -3036,7 +3036,7 @@
 
     attrs := super inspectorExtraAttributes.
     JSONPrinter notNil ifTrue:[
-        attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self ])
+        attrs add:('-JSON' -> [ JSONPrinter encodePrettyPrinted:self printLimit:(JSONPrinter defaultPrettyPrintLimit) ])
     ].
     ^ attrs