--- a/MethodChange.st	Fri Dec 13 20:15:45 2019 +0100
+++ b/MethodChange.st	Fri Dec 13 20:16:06 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	       All Rights Reserved
@@ -92,7 +94,14 @@
 !
 
 class:cls selector:sel source:src category:cat
-    self className:(cls name) selector:sel source:src category:cat
+    |classNameWithoutNamespace|
+
+    classNameWithoutNamespace := cls nameWithoutNameSpacePrefix.
+    (cls name = classNameWithoutNamespace) ifFalse:[
+        "/ split the name
+        self nameSpaceName:(cls topNameSpace name).
+    ].
+    self className:classNameWithoutNamespace selector:sel source:src category:cat
 !
 
 classIsJava