--- a/Tools__ViewTreeApplication.st	Mon May 04 16:41:15 2015 +0200
+++ b/Tools__ViewTreeApplication.st	Mon May 04 16:42:14 2015 +0200
@@ -2922,7 +2922,7 @@
                 ]
             ].
             toRemove notNil ifTrue:[
-                toRemove do:[:el| self remove:el ].
+                toRemove do:[:el| elProcessed remove:el ].
             ].
         ].
     ].