--- a/BlockNode.st	Thu Jan 17 11:01:52 2008 +0100
+++ b/BlockNode.st	Thu Jan 17 11:02:11 2008 +0100
@@ -166,6 +166,12 @@
     needsHome := aBoolean
 !
 
+nestingLevel    
+    ^ home isNil ifTrue:[ 0 ] ifFalse:[ home nestingLevel + 1]
+
+    "Created: / 15-01-2008 / 11:54:57 / cg"
+!
+
 possiblyInlined:aBoolean
     possiblyInlined := aBoolean
 
@@ -924,5 +930,5 @@
 !BlockNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.74 2006-10-23 08:54:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.75 2008-01-17 10:02:11 cg Exp $'
 ! !