--- a/HierarchicalItem.st	Mon Oct 20 16:54:27 2008 +0200
+++ b/HierarchicalItem.st	Mon Oct 20 16:55:12 2008 +0200
@@ -117,7 +117,9 @@
 
     [(item := item parentOrModel) notNil] whileTrue:[
         level := level + 1.
-        level > 100000 ifTrue:[self halt].
+        level > 100000 ifTrue:[
+            self halt:'possibly recursive item hierarchy'
+        ].
     ].
     ^ level
 !
@@ -1911,5 +1913,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.83 2008-02-11 14:34:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.84 2008-10-20 14:55:12 cg Exp $'
 ! !