--- a/ContextInspectorView.st	Sun Sep 01 10:53:13 2013 +0200
+++ b/ContextInspectorView.st	Sun Sep 01 10:53:50 2013 +0200
@@ -630,6 +630,19 @@
     inspectedContext at:contextIndex put:newValue.
 !
 
+valueForCommentLine:line
+    "/ a hack to guide beginners
+    (line startsWith:'>> no home') ifTrue:[
+        ^ 'Cheapblocks do not refer to any variable in
+their defining outer context 
+(i.e. they only refer to self and arguments).
+Therefore, they do not keep a reference to the outer context.
+This is a compiler optimization, leading to a slight inconvenience here.'
+    ].
+
+    ^ nil
+!
+
 valueForSpecialLine:line
     (line startsWith:'-all local vars') ifTrue:[
         ^ inspectedObject
@@ -663,10 +676,10 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.87 2013-09-01 08:53:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.88 2013-09-01 08:53:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.87 2013-09-01 08:53:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.88 2013-09-01 08:53:50 cg Exp $'
 ! !