--- a/Tools__NewSystemBrowser.st	Tue Aug 07 20:44:54 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Aug 08 10:28:11 2018 +0200
@@ -11976,6 +11976,12 @@
                   translateLabel: true
                 )
                (MenuItem
+                  enabled: hasMethodSelectedHolder
+                  label: 'Mark as Under Construction'
+                  itemValue: selectorMenuMarkAsUnderConstruction
+                  translateLabel: true
+                )
+               (MenuItem
                   enabled: hasMethodSelectedAndProjectTagsDefinedHolder
                   label: 'Mark as'
                   submenuChannel: markAsProjectTagMenu
@@ -12016,6 +12022,7 @@
 
     "Modified: / 15-02-2017 / 17:00:30 / cg"
     "Modified: / 01-08-2017 / 10:32:55 / stefan"
+    "Modified: / 08-08-2018 / 10:25:25 / Claus Gittinger"
 !
 
 selectorMenuFileOutPrintOutSlice
@@ -49908,6 +49915,16 @@
     "Modified (comment): / 15-02-2017 / 17:22:06 / cg"
 !
 
+selectorMenuMarkAsUnderConstruction
+    "mark the selected method(s) as under construction (i.e. todo).
+     This has no semantic effect on the execution, 
+     but it will be highlighted by the browser."
+
+    self selectorMenuMarkAs:#todo
+
+    "Created: / 08-08-2018 / 10:26:16 / Claus Gittinger"
+!
+
 selectorMenuMoveOrCopy:doWhat
     "move or copy the selected methods to some other class - typically a sister or parent class"
 
@@ -63948,7 +63965,14 @@
                                         rslt := (ReadStream on:theCode asString) fileIn.
                                     ] ifFalse:[
                                         ClassBuildError handle:[:ex |
-                                            self warn:ex description
+                                            ex mayProceed ifTrue:[
+                                                (Dialog confirm:ex description yesLabel:'Define Anyway' initialAnswer:false) ifFalse:[
+                                                    AbortOperationRequest raiseRequest.
+                                                    ^ nil
+                                                ]
+                                            ] ifFalse:[
+                                                self warn:ex description
+                                            ]
                                         ] do:[
                                             rslt := (aCompilerClass ? Compiler)
                                                         evaluate:theCode asString string
@@ -64018,6 +64042,7 @@
     "Created: / 13-02-2000 / 22:43:59 / cg"
     "Modified: / 04-08-2013 / 03:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 29-11-2017 / 14:05:08 / cg"
+    "Modified: / 08-08-2018 / 09:11:24 / Claus Gittinger"
 !
 
 doAcceptClassDefinition:theCode usingCompiler:aCompilerClass