--- a/BrowserView.st	Mon Nov 20 18:59:27 2000 +0100
+++ b/BrowserView.st	Wed Nov 22 00:30:29 2000 +0100
@@ -8464,16 +8464,17 @@
 
     currentMethod isNil ifTrue:[^ self].
     currentMethod who isNil ifTrue:[
-	self warn:'method is no longer valid'.
-	^ self
+        self warn:'method is no longer valid'.
+        ^ self
     ].
 
     currentMethod perform:aSelector.
     self refetchMethod.
 
     Class withoutUpdatingChangesDo:[
-	currentClass changed:#methodTrap with:currentSelector.
-    ]
+        currentClass changed:#methodTrap with:currentSelector.
+        Smalltalk changed:#methodTrap with:(Array with:currentClass with:currentSelector).
+    ].
 
     "Modified: / 27.7.1998 / 11:10:40 / cg"
 !
@@ -8485,15 +8486,16 @@
 
     currentMethod isNil ifTrue:[^ self].
     currentMethod who isNil ifTrue:[
-	self warn:'method is no longer valid'.
-	^ self
+        self warn:'method is no longer valid'.
+        ^ self
     ].
 
     currentMethod perform:aSelector with:argument.
     self refetchMethod.
 
     Class withoutUpdatingChangesDo:[
-	currentClass changed:#methodTrap with:currentSelector.
+        currentClass changed:#methodTrap with:currentSelector.
+        Smalltalk changed:#methodTrap with:(Array with:currentClass with:currentSelector).
     ]
 
     "Modified: / 27.7.1998 / 11:10:57 / cg"
@@ -8615,13 +8617,12 @@
 
                     lastMethodCategory := aString.
                     method := currentMethod.
-
-                    method category:aString asSymbol.
-                    actualClass changed:#organization with:currentSelector.
-                    method changed:#category.
-                    actualClass addChangeRecordForMethodCategory:method category:aString.
-                    self updateMethodCategoryListWithScroll:false.
-                    self updateMethodListWithScroll:false
+                    aString ~= method category ifTrue:[
+                        method category:aString asSymbol.
+                        actualClass addChangeRecordForMethodCategory:method category:aString.
+                        self updateMethodCategoryListWithScroll:false.
+                        self updateMethodListWithScroll:false
+                    ]
                ].
     box label:(resources string:'change category').
     box showAtPointer
@@ -13849,6 +13850,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.648 2000-11-14 13:41:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.649 2000-11-21 23:30:29 cg Exp $'
 ! !
 BrowserView initialize!