--- a/ChangeSet.st	Mon Dec 16 11:38:46 2019 +0100
+++ b/ChangeSet.st	Wed Dec 18 00:20:16 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -1698,7 +1700,10 @@
 
     nameOfClass := aClass name.
 
-    ^ self contains:[:aChange | aChange notNil and:[(selector = aChange selector) and:[nameOfClass = aChange className]]]
+    ^ self contains:[:aChange | 
+        aChange notNil 
+        and:[(selector = aChange selector) 
+        and:[nameOfClass = aChange fullClassName]]]
 
     "
      ChangeSet current includesChangeForClass:ChangeSet selector:#includesChangeForClass: