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