--- a/UIPainter.st	Sat Dec 04 16:06:12 1999 +0100
+++ b/UIPainter.st	Thu Dec 09 12:10:55 1999 +0100
@@ -2870,7 +2870,7 @@
     selectionPanel openWindow.
     selectionPanel masterApplication:self.
 
-    icon := Smalltalk bitmapFromFileNamed:'UIPainter.xbm' forClass:self class.
+    icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class.
     topView iconLabel:'GUI Painter'.
     topView icon:icon.