--- a/Behavior.st	Mon Feb 29 19:36:41 2016 +0100
+++ b/Behavior.st	Tue Mar 01 10:25:35 2016 +0100
@@ -1424,6 +1424,7 @@
     ^ self nameWithoutPrefix
 ! !
 
+
 !Behavior methodsFor:'RefactoringBrowser'!
 
 realClass
@@ -3356,7 +3357,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.
 !
 
@@ -3368,8 +3369,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