--- a/ClassDefinitionChange.st	Thu Apr 16 11:35:34 2015 +0200
+++ b/ClassDefinitionChange.st	Mon Apr 20 00:28:16 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -306,11 +308,13 @@
     "Modified: / 10-08-2012 / 11:53:54 / cg"
 !
 
-superClassName 
+superClassName
+    "returns nil, if no superclass"
+
     |nm|
 
     nm := superClassName.
-    nm isNil ifTrue:[^ 'nil'].
+    nm isNil ifTrue:[^ nil " 'nil' "].
     "/ convert VW namespace syntax
     (nm includes:$.) ifTrue:[
         ^ nm copyReplaceAll:$. withAll:'::'.
@@ -493,7 +497,7 @@
           ].
     ].
 
-    superClassNameUsed := self superClassName.
+    superClassNameUsed := (self superClassName) ? 'nil'.
     "Strip of namespace"
     nsOrNil notNil ifTrue:[
         (superClassNameUsed startsWith: nsOrNil) ifTrue:[
@@ -589,7 +593,7 @@
           ].
     ].
 
-    superClassNameUsed := self superClassName.
+    superClassNameUsed := self superClassName ? 'nil'.
     classNameUsed := self classNameWithoutNamespace.
 
     ^ String streamContents:[:stream |
@@ -897,11 +901,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.96 2015-03-24 18:01:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.97 2015-04-19 22:28:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.96 2015-03-24 18:01:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.97 2015-04-19 22:28:16 cg Exp $'
 !
 
 version_HG
@@ -910,6 +914,6 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st,v 1.96 2015-03-24 18:01:04 cg Exp $'
+    ^ '$Id: ClassDefinitionChange.st,v 1.97 2015-04-19 22:28:16 cg Exp $'
 ! !