--- a/ClassDefinitionChange.st	Wed Oct 16 01:22:03 2013 +0100
+++ b/ClassDefinitionChange.st	Mon Nov 04 11:11:35 2013 -0300
@@ -600,7 +600,7 @@
     sel := parseTree selector.
     (sel endsWith:':privateIn:') ifTrue:[^ self].
 
-    catIdx := sel asSymbol keywords indexOf:'category:'.  
+    catIdx := sel keywords indexOf:'category:'.  
     catIdx ~~ 0 ifTrue:[
         cat := (parseTree args at:catIdx) evaluate.
     ].
@@ -716,11 +716,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.85 2013-08-15 14:08:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.86 2013-09-28 12:10:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.85 2013-08-15 14:08:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.86 2013-09-28 12:10:20 cg Exp $'
 !
 
 version_HG
@@ -729,6 +729,6 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st,v 1.85 2013-08-15 14:08:03 stefan Exp $'
+    ^ '$Id: ClassDefinitionChange.st,v 1.86 2013-09-28 12:10:20 cg Exp $'
 ! !