--- a/UIPainter.st	Thu Oct 29 09:47:35 2015 +0100
+++ b/UIPainter.st	Thu Oct 29 15:17:56 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995-1998 by eXept Software AG
               All Rights Reserved
@@ -5265,11 +5267,10 @@
     self clearModified
 !
 
-addWidget: aSpecClass
+addWidget: aSpecClassSymbol
     "adds a widget from aSpecClass to the current widget"
 
-    self addWidgetOfSpec: (Array with: (Smalltalk at: aSpecClass) new)
-
+    self addWidgetOfSpec: (Array with: (Smalltalk at: aSpecClassSymbol) new)
 !
 
 addWidgetOfSpec: aSpec