--- a/RegressionTests__ChangeSetTests.st	Thu Jun 06 19:16:10 2013 +0200
+++ b/RegressionTests__ChangeSetTests.st	Mon Jun 10 18:09:10 2013 +0200
@@ -496,6 +496,26 @@
     self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name ==  #'Mocks::MockClass::PrivateClass'.
 
     "Created: / 20-11-2012 / 15:26:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_06a
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+nil subclass:#MockClass
+        instanceVariableNames:''''
+        classVariableNames:''''
+        poolDictionaries:''''
+        category:''tests-Regression-Mocks''
+' readStream.
+
+    cs apply.
+
+    self assert: (Smalltalk at: #MockClass) superclass isNil
+
+    "Created: / 10-06-2013 / 16:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!