--- a/Metaclass.st	Thu Jan 09 02:15:31 1997 +0100
+++ b/Metaclass.st	Thu Jan 09 02:27:58 1997 +0100
@@ -476,7 +476,7 @@
      anyChange oldInstVars newInstVars oldClassVars newClassVars superFlags newFlags
      pkg idx spec nClassInstVars superInstVars
      realNewName thisIsPrivate oldCIVNames newCIVNames msg nsName namespace
-     oldSuperClass newSuperClass globalExistedBefore|
+     oldSuperClass newSuperClass globalExistedBefore oldCategory|
 
     "NOTICE:
      this method is too complex and should be splitted into managable pieces ...
@@ -1301,6 +1301,7 @@
     "
      change category in oldClass - so we see immediately what it is ...
     "
+    oldCategory := oldClass category.
     oldClass category:#'* obsolete *'.
     oldClass class category:#'* obsolete *'.
 
@@ -1316,7 +1317,7 @@
                 self checkForAliasesOf:oldClass with:newClass.
             ].
 
-            oldClass category ~= categoryString ifTrue:[
+            oldCategory ~= categoryString ifTrue:[
                 "notify change of organization"
                 namespace changed:#organization.
                 namespace ~~ Smalltalk ifTrue:[
@@ -1346,7 +1347,7 @@
 
     "Created: 26.5.1996 / 11:55:26 / cg"
     "Modified: 18.6.1996 / 14:19:39 / stefan"
-    "Modified: 9.1.1997 / 01:44:23 / cg"
+    "Modified: 9.1.1997 / 02:27:07 / cg"
 !
 
 name:newName inEnvironment:aSystemDictionary
@@ -1762,5 +1763,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.99 1997-01-09 01:10:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.100 1997-01-09 01:27:58 cg Exp $'
 ! !