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