--- a/ClassDefinitionChange.st	Wed May 15 12:48:50 2013 +0200
+++ b/ClassDefinitionChange.st	Wed May 15 17:58:10 2013 +0200
@@ -114,7 +114,7 @@
             imageTree := RBParser parseExpression:imageSource.
             same := (myTree = imageTree).
             same ifFalse:[
-                "/ some classDefinition strings contain sn
+                "/ some classDefinition strings may contain whitespace
                 "/ instVarName string like 'foo bar ' instead of 'foo bar' (i.e. added a space)...
                 ((myTree receiver = imageTree receiver)
                     and:[ (myTree selector = imageTree selector)
@@ -124,8 +124,8 @@
                     and:[ (2 to:5) conform:[:i |
                             ((myTree arguments at:i) isLiteral
                             and:[ (imageTree arguments at:i) isLiteral
-                            and:[ (myTree arguments at:i) value asString withoutSeparators
-                                  = (imageTree arguments at:i) value asString withoutSeparators ]]) ]   
+                            and:[ (myTree arguments at:i) value asString asCollectionOfWords
+                                  = (imageTree arguments at:i) value asString asCollectionOfWords ]]) ]   
 
                 ]]]])
                     ifTrue:[
@@ -777,11 +777,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.83 2013-05-09 12:47:37 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.84 2013-05-15 15:58:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.83 2013-05-09 12:47:37 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.84 2013-05-15 15:58:10 cg Exp $'
 !
 
 version_HG
@@ -790,6 +790,6 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st,v 1.83 2013-05-09 12:47:37 vrany Exp $'
+    ^ '$Id: ClassDefinitionChange.st,v 1.84 2013-05-15 15:58:10 cg Exp $'
 ! !