--- a/UIGalleryView.st	Sun Feb 22 15:35:36 1998 +0100
+++ b/UIGalleryView.st	Sun Feb 22 21:32:37 1998 +0100
@@ -438,10 +438,12 @@
     spec notNil ifTrue:[
         spec := self buildSpecFrom:spec.
         name := spec className asString.
-        name := name copyFrom:1 to:(name size - ('Spec' size) + 1). 
-        name at:1 put:(name at:1) asLowercase.
-        name at:(name size) put:$1.
-        spec name:name.
+        (name endsWith:'Spec') ifTrue:[
+        name := name copyFrom:1 to:(name size - 4).
+        ] ifFalse:[
+            name := name copy
+        ].
+        spec name:(name, $1).
 
         self showUnselected.
         dragObj := DropSpec for:selection specification:spec.