--- a/extensions.st	Thu Mar 12 18:58:43 2020 +0100
+++ b/extensions.st	Sat Mar 21 11:42:38 2020 +0100
@@ -2422,12 +2422,12 @@
 inspector2TabJSON
     <inspector2Tab>
 
-    |holder jsonPrinter jsonString countRecursive v|
+    |generateJSON jsonPrinter jsonString countRecursive v|
 
     (jsonPrinter := Smalltalk classNamed:'JSONPrinter') isNil ifTrue:[^ nil].
 
-    "/ because JSON generation takes a ong time, only do it when the tab's view is mapped.
-    holder := 
+    "/ because JSON generation may take a long time, only do it when the tab's view is mapped.
+    generateJSON := 
         [
             jsonString isNil ifTrue:[
                 countRecursive := 0.
@@ -2456,8 +2456,10 @@
     v scrolledView 
         onChange:#visibility 
         evaluate:[
-                v scrolledView model isNil ifTrue:[v scrolledView model: holder]
+            v scrolledView contents:(generateJSON value)
+                "/ v scrolledView model isNil ifTrue:[v scrolledView model: holder]
         ].
+
     ^ self newInspector2Tab
         label: 'JSON';
         priority: 15;