--- a/BrowserView.st	Fri Aug 22 15:37:00 2003 +0200
+++ b/BrowserView.st	Fri Aug 22 15:39:13 2003 +0200
@@ -4456,7 +4456,7 @@
     baseName := currentClass nameWithoutPrefix.
     (ns := currentClass topOwningClass nameSpace) ~~ Smalltalk ifTrue:[
         ns := Dialog confirmWithCancel:(resources string:'Make public in ''Smalltalk'' or in its nameSpace ''%1'' ?' with:ns name)
-                labels:(Array with:'cancel' with:'in Smalltalk' with:'in ' , ns name)
+                labels:(Array with:'Cancel' with:'In Smalltalk' with:'In ' , ns name)
                 values:(Array with:nil with:Smalltalk with:ns)
                 default:3.
         ns isNil ifTrue:[^ self].
@@ -14639,7 +14639,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.762 2003-08-14 16:38:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.763 2003-08-22 13:38:49 cg Exp $'
 ! !
 
 BrowserView initialize!