--- a/InspectorView.st	Wed Jan 31 22:17:24 2018 +0100
+++ b/InspectorView.st	Thu Feb 01 23:45:29 2018 +0100
@@ -3112,7 +3112,7 @@
     names do:[:eachClassVarName |
         |val valString|
 
-        IsDebuggingQuery answer:true do:[
+        DebugView withDebuggingFlagSetDo:[
             val := (anObject whichClassDefinesClassVar:eachClassVarName asSymbol) classVarAt:eachClassVarName.
         ].
         s spaces:lvl.
@@ -3133,6 +3133,8 @@
         ].
     ].
     ^ s contents
+
+    "Modified: / 01-02-2018 / 10:11:03 / stefan"
 !
 
 stringWithAllIndexedVarValues
@@ -3201,7 +3203,7 @@
     names with:instVarOffsets do:[:eachInstVarName :eachInstVarIndex |
         |val valString|
 
-        IsDebuggingQuery answer:true do:[
+        DebugView withDebuggingFlagSetDo:[
             val := anObject instVarAt:eachInstVarIndex.
         ].
         s spaces:lvl.
@@ -3224,6 +3226,7 @@
     ^ s contents
 
     "Created: / 31-01-2012 / 18:23:15 / cg"
+    "Modified: / 01-02-2018 / 10:11:14 / stefan"
 !
 
 stringWithMessages:which
@@ -3406,7 +3409,7 @@
         ^ self hasSelfEntry ifFalse:[ #() ] ifTrue:[ #('-self') ]
     ].
 
-    IsDebuggingQuery answer:true do:[
+    DebugView withDebuggingFlagSetDo:[
         cls := object class.
 
         self topView withWaitCursorDo:[
@@ -3433,6 +3436,7 @@
     ^ fieldList
 
     "Modified: / 18-09-2006 / 21:16:03 / cg"
+    "Modified: / 01-02-2018 / 10:09:19 / stefan"
 !
 
 hasSelfEntry
@@ -3668,12 +3672,11 @@
 !
 
 namedFieldAt:idx
-    |val|
-
-    IsDebuggingQuery answer:true do:[
-        val := object instVarAt:idx
+    ^ DebugView withDebuggingFlagSetDo:[
+        object instVarAt:idx
     ].
-    ^ val
+
+    "Modified: / 01-02-2018 / 10:09:53 / stefan"
 !
 
 namedFieldAt:idx put:newValue