--- a/RegressionTests__ChangeSetTests.st	Wed Oct 30 21:06:17 2013 +0100
+++ b/RegressionTests__ChangeSetTests.st	Tue Nov 12 22:35:16 2013 +0100
@@ -11,6 +11,13 @@
 	category:'tests-Regression-System-Changes'
 !
 
+Object subclass:#ExistingPrivateClass
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ChangeSetTests
+!
+
 
 !ChangeSetTests methodsFor:'change & update'!
 
@@ -516,6 +523,50 @@
     self assert: (Smalltalk at: #MockClass) superclass isNil
 
     "Created: / 10-06-2013 / 16:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_07a
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+Object subclass:#ExistingPrivateClass
+        instanceVariableNames:''''
+        classVariableNames:''''
+        poolDictionaries:''''
+        privateIn:RegressionTests::ChangeSetTests     
+' readStream.
+
+
+    self assert: cs size == 1.
+    self assert: cs anElement isClassDefinitionChange.
+    self assert: cs anElement changeClass == ExistingPrivateClass.
+
+    "Created: / 12-11-2013 / 17:53:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_07b
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+"{ NameSpace: RegressionTests }"
+
+Object subclass:#ExistingPrivateClass
+        instanceVariableNames:''''
+        classVariableNames:''''
+        poolDictionaries:''''
+        privateIn:ChangeSetTests     
+' readStream.
+
+
+    self assert: cs size == 1.
+    self assert: cs anElement isClassDefinitionChange.
+    self assert: cs anElement changeClass == ExistingPrivateClass.
+
+    "Created: / 12-11-2013 / 17:54:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!