--- a/ContextInspectorView.st	Sun Sep 01 09:37:23 2013 +0200
+++ b/ContextInspectorView.st	Sun Sep 01 10:53:00 2013 +0200
@@ -470,7 +470,13 @@
 !
 
 fieldList
-    names size == 0 ifTrue:[^ names].
+    names size == 0 ifTrue:[
+        inspectedContext home isNil ifTrue:[
+            "/ hack to guide beginners
+            ^ { '>> no home in cheap block <<' colorizeAllWith:Color grey }
+        ].
+        ^ names
+    ].
     ^ (Array with:('-', 'all local vars' allItalic)) 
         , (names keysAndValuesCollect:[:idx :nm |
                 self listEntryForName:nm value:(self valueAtIndex:idx) ])
@@ -591,6 +597,10 @@
     l := self listEntryAt:lineNr.
     l isNil ifTrue:[ ^nil].
 
+    (l startsWith:'>>') ifTrue:[
+        "/ a comment (hack)
+        ^ self valueForCommentLine:(self listEntryAt:lineNr)
+    ].
     (l startsWith:$-) ifTrue:[
         (l ~= '-') ifTrue:[
             ^ self valueForSpecialLine:(self listEntryAt:lineNr)
@@ -653,10 +663,10 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.85 2013-06-20 11:24:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.86 2013-09-01 08:53:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.85 2013-06-20 11:24:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.86 2013-09-01 08:53:00 cg Exp $'
 ! !