--- a/SimpleView.st	Mon Dec 07 15:57:22 2009 +0100
+++ b/SimpleView.st	Mon Dec 07 15:57:44 2009 +0100
@@ -9482,6 +9482,7 @@
 renderOrRedraw
     renderer notNil ifTrue:[
         "/ experimental feature
+        thisContext isRecursive ifTrue:[self halt].
         renderer render:self on:self at:0@0
     ] ifFalse:[
         "/ redraw everything - a fallBack for lazy views.
@@ -10570,11 +10571,11 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.653 2009-12-07 14:57:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.654 2009-12-07 14:57:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.653 2009-12-07 14:57:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.654 2009-12-07 14:57:44 cg Exp $'
 ! !
 
 SimpleView initialize!