--- a/BrowserView.st	Sat Nov 25 12:11:06 1995 +0100
+++ b/BrowserView.st	Sat Nov 25 13:16:57 1995 +0100
@@ -2032,7 +2032,12 @@
     "helper - do the rename"
 
     self doClassMenu:[:currentClass |
-	|oldName oldSym newSym|
+	|oldName oldSym newSym cls|
+
+	(cls := Smalltalk classNamed:aString) notNil ifTrue:[
+	    (self confirm:(resources string:'WARN_RENAME' with:aString with:cls category))
+		ifFalse:[^ self]
+	].
 
 	oldName := currentClass name.
 	oldSym := oldName asSymbol.
@@ -2056,6 +2061,8 @@
 	    SystemBrowser browseReferendsOf:oldSym warnIfNone:false
 	]
     ]
+
+    "Created: 25.11.1995 / 13:02:53 / cg"
 !
 
 switchToClass:newClass
@@ -5906,5 +5913,5 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.50 1995-11-25 11:11:06 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.51 1995-11-25 12:16:57 cg Exp $'! !
 BrowserView initialize!