--- a/BrowserView.st	Tue Mar 21 13:50:47 2000 +0100
+++ b/BrowserView.st	Tue Mar 21 15:11:44 2000 +0100
@@ -5788,37 +5788,38 @@
     "helper - do the class-rename"
 
     self doClassMenu:[:currentClass |
-	|oldSym oldBaseSym cls|
-
-	"/ check if the target already exists - confirm if so.
-
-	(cls := Smalltalk classNamed:aString) notNil ifTrue:[
-	    (self confirm:(resources string:'WARN_RENAME' 
-				     with:aString 
-				     with:cls category) withCRs)
-		ifFalse:[^ self]
-	].
-
-	oldSym := currentClass name asSymbol.
-	oldBaseSym := currentClass nameWithoutPrefix asSymbol.
-
-	"/
-	"/ renaming is actually more complicated as one might
-	"/ think (care for classVariables, privateClasses etc.)
-	"/ Smalltalk knows all about that ...
-
-	Smalltalk renameClass:currentClass to:aString.
-
-	self updateClassList.
-	self updateMethodCategoryListWithScroll:false.
-	self updateMethodListWithScroll:false.
-	self withBusyCursorDo:[
-	    Transcript showCR:('searching for users of ' , oldSym); endEntry.
-	    SystemBrowser browseReferendsOf:oldSym warnIfNone:false.
-
-	    Transcript showCR:('searching for users of ' , oldBaseSym); endEntry.
-	    SystemBrowser browseReferendsOf:oldBaseSym warnIfNone:false
-	]
+        |oldSym oldBaseSym cls|
+
+        "/ check if the target already exists - confirm if so.
+
+        (cls := Smalltalk classNamed:aString) notNil ifTrue:[
+            (self confirm:(resources string:'WARN_RENAME' 
+                                     with:aString 
+                                     with:cls category) withCRs)
+                ifFalse:[^ self]
+        ].
+
+        oldSym := currentClass name asSymbol.
+        oldBaseSym := currentClass nameWithoutPrefix asSymbol.
+
+        "/
+        "/ renaming is actually more complicated as one might
+        "/ think (care for classVariables, privateClasses etc.)
+        "/ Smalltalk knows all about that ...
+
+        Smalltalk renameClass:currentClass to:aString.
+
+        self updateClassList.
+        self updateMethodCategoryListWithScroll:false.
+        self updateMethodListWithScroll:false.
+        self withBusyCursorDo:[
+            Transcript showCR:('searching for users of ' , oldSym); endEntry.
+            SystemBrowser browseReferendsOf:oldSym warnIfNone:false.
+            oldBaseSym ~= oldSym ifTrue:[
+                Transcript showCR:('searching for users of ' , oldBaseSym); endEntry.
+                SystemBrowser browseReferendsOf:oldBaseSym warnIfNone:false
+            ]
+        ]
     ]
 
     "Created: / 25.11.1995 / 13:02:53 / cg"
@@ -14063,6 +14064,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.611 2000-03-21 12:50:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.612 2000-03-21 14:11:44 cg Exp $'
 ! !
 BrowserView initialize!