--- a/Tools__InlineMessageDialog.st	Sat Aug 22 00:04:30 2015 +0100
+++ b/Tools__InlineMessageDialog.st	Mon Aug 24 10:07:46 2015 +0100
@@ -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
         ]