--- a/Tools__InlineMessageDialog.st	Sun Aug 23 11:21:39 2015 +0200
+++ b/Tools__InlineMessageDialog.st	Sun Aug 23 11:33:31 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
  Copyright (c) 2009-2010 eXept Software AG
@@ -543,7 +545,7 @@
     "Removes all components except subcanvas"
     panelViewComponents := nil.
     panelView notNil ifTrue:[
-        panelView subViews copyWithoutFirst do:[:component|
+        panelView subViews allButFirst do:[:component|
              component destroy
         ]