--- a/HierarchicalItem.st	Mon Sep 18 17:20:58 2006 +0200
+++ b/HierarchicalItem.st	Tue Sep 19 19:15:15 2006 +0200
@@ -118,7 +118,8 @@
     level := 7.
 
     [(item := item parentOrModel) notNil] whileTrue:[
-        level := level + 1
+        level := level + 1.
+        level > 100000 ifTrue:[self halt].
     ].
     ^ level
 !
@@ -1909,5 +1910,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.78 2006-09-13 09:36:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.79 2006-09-19 17:15:15 fm Exp $'
 ! !