--- a/ClassDescription.st	Thu May 24 21:02:00 2018 +0200
+++ b/ClassDescription.st	Thu May 24 21:07:35 2018 +0200
@@ -664,7 +664,6 @@
     "Modified: 23.4.1996 / 15:56:54 / cg"
 ! !
 
-
 !ClassDescription methodsFor:'Compatibility-Dolphin'!
 
 methodsFor
@@ -925,16 +924,18 @@
 
     mthd := self compile: aString classified: protocol.
     attributes notEmpty ifTrue:[
-	attributes keysAndValuesDo:[:aK :aV |
-	    aK = 'package' ifTrue:[
-		"/ mthd package:aV
-	    ] ifFalse:[
-		self error:(aK , '-attribute not yet supported') mayProceed:true.
-	    ].
-	].
+        attributes keysAndValuesDo:[:aK :aV |
+            aK = 'package' ifTrue:[
+                "/ mthd package:aV
+            ] ifFalse:[
+                self proceedableError:(aK , '-attribute not yet supported').
+            ].
+        ].
     ].
 
     ^ mthd.
+
+    "Modified: / 24-05-2018 / 21:06:38 / Claus Gittinger"
 !
 
 instVarIndexFor:aVariableName ifAbsent:exceptionValue
@@ -4033,7 +4034,7 @@
     |category ownerClass|
     
     (ownerClass := ownerClassArg) isNil ifTrue:[
-        self error:'Nil (undefined) owner class - proceed to define as global' mayProceed:true.
+        self proceedableError:'Nil (undefined) owner class - proceed to define as global'.
         ownerClass := Smalltalk.
     ] ifFalse:[
         category := ownerClass  category
@@ -4132,10 +4133,11 @@
         instanceVariableNames:instVarNameString
         classVariableNames:classVarString
         poolDictionaries:pool
-        privateIn:ownerClass 
+        privateIn:ownerClass
 
     "Created: / 11-10-1996 / 16:30:53 / cg"
     "Modified: / 31-03-2007 / 10:20:38 / cg"
+    "Modified: / 24-05-2018 / 21:06:45 / Claus Gittinger"
 !
 
 variableByteSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:ownerClass 
@@ -4152,7 +4154,7 @@
     ].
 
     ownerClass  isNil ifTrue:[
-        self error:'Nil (undefined) owner class - proceed to define as global' mayProceed:true.
+        self proceedableError:'Nil (undefined) owner class - proceed to define as global'.
     ] ifFalse:[
         category := ownerClass  category
     ].
@@ -4171,8 +4173,9 @@
         comment:nil
         changed:true.
 
-    "Created: / 11.10.1996 / 16:31:27 / cg"
-    "Modified: / 4.7.1999 / 18:42:36 / cg"
+    "Created: / 11-10-1996 / 16:31:27 / cg"
+    "Modified: / 04-07-1999 / 18:42:36 / cg"
+    "Modified: / 24-05-2018 / 21:07:00 / Claus Gittinger"
 !
 
 variableDoubleSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass