--- a/ClassDefinitionChange.st	Wed Apr 08 12:24:39 2015 +0200
+++ b/ClassDefinitionChange.st	Mon Apr 13 18:53:24 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -457,20 +459,14 @@
 definitionString
     | ns  |
 
-
-    ns := self nameSpaceName.
-    ns isEmptyOrNil ifTrue:[
-        ^ self definitionStringInNamespace: ns.
-    ].
+    ns := (self nameSpaceName) ? 'Smalltalk'.
     ^String streamContents:[:s|
-"/        owningClassName isNil ifTrue:[
-            s nextPutAll: '"{ NameSpace: '; nextPutAll: ns; nextPutAll: ' }"'.
-            s cr; cr.
-"/        ].
+        s nextPutAll: '"{ NameSpace: '; nextPutAll: ns;  nextPutAll: ' }"'.
+        s cr; cr.
         s nextPutAll: (self definitionStringInNamespace: ns).
     ]
 
-    "Modified: / 13-11-2013 / 17:40:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 13-04-2015 / 18:23:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 definitionStringInNamespace: nsOrNil