--- 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