--- a/InspectorView.st	Wed Nov 30 10:41:48 2016 +0100
+++ b/InspectorView.st	Wed Nov 30 12:30:52 2016 +0100
@@ -233,7 +233,7 @@
 
     |lbl id|
 
-    (anObject isLazyValue not and:[anObject isImmediate or:[anObject isBoolean]]) ifTrue:[
+    (anObject isProtoObject not and:[anObject isImmediate or:[anObject isBoolean]]) ifTrue:[
         ^ self labelNameFor:anObject.
     ].
     lbl := '<%1> %2'.
@@ -269,7 +269,7 @@
 
     |s|
 
-    anObject isLazyValue ifTrue:[
+    anObject isProtoObject ifTrue:[
         ^ anObject displayString.
     ].
 
@@ -1196,7 +1196,7 @@
     anObject == false ifTrue:[
         ^ self imageFor_false
     ].
-    anObject isLazyValue ifFalse:[
+    anObject isProtoObject ifFalse:[
         anObject isNumber ifTrue:[
             anObject isInteger ifTrue:[
                 ^ self imageFor_integers
@@ -1856,7 +1856,7 @@
 setInitialSelection
     Error handle:[:ex |
     ] do:[
-        object isLazyValue ifFalse:[
+        object isProtoObject ifFalse:[
             object isString ifTrue:[
                 self showSelection:1    "/ the self-line    
             ]
@@ -2928,7 +2928,7 @@
             "/ displayStringMessage := #displayString
             "/ displayStringMessage := #printString
 
-            someValue isLazyValue ifTrue:[
+            someValue isProtoObject ifTrue:[
                 "Lazy values redefine #displayOn: to stay layzy"
                 displayStringMessage := #displayString
             ].
@@ -2971,7 +2971,7 @@
         sel := self listEntryAt:idx.
         sel isNil ifTrue:[^ someValue].
 
-        object isLazyValue ifFalse:[
+        object isProtoObject ifFalse:[
             extraAttributes := object inspectorExtraAttributes.
         ].
         (extraAttributes notNil and:[extraAttributes includesKey:sel]) ifTrue:[
@@ -3017,7 +3017,7 @@
         ^ nameString
     ] do:[
         entryString := nameString allBold, (self valueStringInListEntryForValue:value).
-        (value isLazyValue not and:[value isColor and:[value red notNil]]) ifTrue:[
+        (value isProtoObject not and:[value isColor and:[value red notNil]]) ifTrue:[
             entryString := entryString
                          , '  ' , ('   '
                             colorizeAllWith:(value contrastingBlackOrWhite)
@@ -3052,7 +3052,7 @@
         ].
         ^ nil
     ].
-    (value isNumber or:[value isBoolean]) ifTrue:[
+    (value isProtoObject or:[value isNumber or:[value isBoolean]]) ifTrue:[
         ^ self basicDisplayStringForValue:value "value printString"
     ].
     ^ value inspectorValueStringInListFor:self
@@ -4019,13 +4019,12 @@
 
     myClass := self class.
     (myClass == InspectorView
-     and:[anObject isLazyValue not and:[anObject inspectorClass ~~ InspectorView]]) ifTrue:[
+     and:[anObject isProtoObject not and:[anObject inspectorClass ~~ InspectorView]]) ifTrue:[
         lbl := 'BasicInspector on: '
     ] ifFalse:[
         lbl := 'Inspector on: '
     ].
-    ^ (myClass classResources string:lbl)
-    , (myClass commonLabelFor:anObject)
+    ^ (myClass classResources string:lbl), (myClass commonLabelFor:anObject)
 
     "Modified: / 15-07-2011 / 16:22:05 / cg"
 !