--- a/Behavior.st	Tue Mar 01 19:07:31 2016 +0000
+++ b/Behavior.st	Wed Mar 02 07:54:29 2016 +0000
@@ -1424,6 +1424,7 @@
     ^ self nameWithoutPrefix
 ! !
 
+
 !Behavior methodsFor:'RefactoringBrowser'!
 
 realClass
@@ -3364,7 +3365,7 @@
      be correct, since no caches are flushed.
      Therefore: do NOT use it; use Behavior>>superclass: (or flush the caches, at least)"
 
-    self setSuperclass:aClass.
+    superclass := aClass.
     instSize := i.
 !
 
@@ -3376,8 +3377,8 @@
      be correct, since no caches are flushed.
      Therefore: do NOT use it; use Behavior>>superclass: (or flush the caches, at least)"
 
-    self setSuperclass:aClass.
     self setMethodDictionary:d.
+    superclass := aClass.
     instSize := i.
     flags := f