--- a/Object.st	Wed May 23 14:55:33 2018 +0200
+++ b/Object.st	Thu May 24 14:32:36 2018 +0200
@@ -260,9 +260,6 @@
 ! !
 
 
-
-
-
 !Object class methodsFor:'Compatibility-ST80'!
 
 rootError
@@ -527,8 +524,6 @@
 
 
 
-
-
 !Object methodsFor:'Compatibility-GNU'!
 
 display
@@ -1727,6 +1722,7 @@
     "
 ! !
 
+
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1870,6 +1866,8 @@
 ! !
 
 
+
+
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -4646,6 +4644,17 @@
     "Modified (format): / 01-08-2017 / 13:51:21 / cg"
 !
 
+proceedableError:errorMessage
+    "Report a proceedable error.
+     A handler can provide a default value"
+     
+    <resource: #skipInDebuggersWalkBack>
+
+    ^ self error:errorMessage mayProceed:true
+
+    "Created: / 24-05-2018 / 13:45:58 / Claus Gittinger"
+!
+
 shouldImplement
     "{ Pragma: +optSpace }"
 
@@ -10779,6 +10788,7 @@
 
 
 
+
 !Object class methodsFor:'documentation'!
 
 version