--- a/SelectionBrowser.st	Sat Feb 07 23:32:23 1998 +0100
+++ b/SelectionBrowser.st	Sat Feb 14 17:50:43 1998 +0100
@@ -60,19 +60,6 @@
 
 !SelectionBrowser class methodsFor:'accessing'!
 
-label
-
-    |label|
-    label := ''.
-    self name do:
-    [:c|
-        c isUppercase ifTrue: [label := label, $ ].
-        label := label, c
-    ].
-    ^label trimBlanks
-
-!
-
 lastSelection
 
     ^lastSelection
@@ -95,7 +82,7 @@
 
 postBuildWith:aBuilder
 
-    builder window label: title ? self class label.
+    builder window label: title ? builder window label.
 
     ^super postBuildWith:aBuilder