--- a/ChangeSetBrowser.st	Sun Jul 01 11:44:46 2018 +0200
+++ b/ChangeSetBrowser.st	Sun Jul 01 11:46:08 2018 +0200
@@ -781,10 +781,22 @@
                         guess notEmptyOrNil ifTrue:[ guess := guess first ] ifFalse:[ guess := nil ].
                     ].
                 ].
-
-                superClass := Dialog 
-                            requestClass:'No superclass: ', superClassName allBold , ' enter a replacement:' 
-                            initialAnswer:(guess ? superClassName).
+                Dialog 
+                    withAdditionalOKButtonLabeled:'Create Dummy'
+                    action:[
+                        |newClass|
+                        newClass := Object subclass:(superClassName asSymbol)
+                               instanceVariableNames:''
+                               classVariableNames:''
+                               poolDictionaries:''
+                               category:'* dummy *'.
+                        newClass.    
+                    ]
+                    do:[
+                        superClass := Dialog 
+                                    requestClass:'No superclass: ', superClassName allBold , ' enter a replacement:' 
+                                    initialAnswer:(guess ? superClassName).
+                    ].
 
                 superClass isNil ifTrue:[AbortOperationRequest raise. ^ self ].
             ].
@@ -810,6 +822,7 @@
     ].
 
     "Modified: / 29-01-2011 / 12:30:35 / cg"
+    "Modified: / 01-07-2018 / 10:09:19 / Claus Gittinger"
 !
 
 changeIsFollowupMethodChange:changeNr