--- a/ClassDefinitionChange.st	Tue Sep 24 22:07:43 2013 +0200
+++ b/ClassDefinitionChange.st	Sat Sep 28 14:10:20 2013 +0200
@@ -670,7 +670,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.
     ].
@@ -777,11 +777,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
@@ -790,6 +790,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 $'
 ! !