--- a/MethodCategoryChange.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/MethodCategoryChange.st	Thu Nov 23 02:55:37 1995 +0100
@@ -41,7 +41,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.6 1995-11-11 15:20:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.7 1995-11-23 01:54:31 cg Exp $'
 ! !
 
 !MethodCategoryChange class methodsFor:'instance creation'!
@@ -54,15 +54,15 @@
 
 !MethodCategoryChange methodsFor:'accessing'!
 
-source
-    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , category storeString
-
-!
-
 class:cls selector:sel category:cat
     className := cls name.
     selector := sel.
     category := cat
 
+!
+
+source
+    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , category storeString
+
 ! !