--- a/UIPainterView.st	Sun Feb 22 21:32:37 1998 +0100
+++ b/UIPainterView.st	Sun Feb 22 21:34:35 1998 +0100
@@ -1036,7 +1036,6 @@
     ] ifFalse:[
         name := name copy
     ].
-    name at:1 put:(name at:1) asLowercase.
     size  := name size + 1.
     next  := 0.
 
@@ -1054,6 +1053,7 @@
 
 
 
+
 !
 
 uniqueNameOf:aView