--- a/Object.st	Thu Mar 03 18:38:02 2016 +0100
+++ b/Object.st	Thu Mar 03 18:45:20 2016 +0100
@@ -520,6 +520,7 @@
 
 
 
+
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -1750,6 +1751,8 @@
     "
 ! !
 
+
+
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1872,6 +1875,7 @@
 ! !
 
 
+
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -2932,7 +2936,7 @@
     "Modified: / 20-08-2010 / 17:13:06 / cg"
 !
 
-assert:aBooleanOrBlock message:messageIfFailing
+assert:aBooleanOrBlock description:messageIfFailing
     "fail, if the argument does not evaluate to true and report an error"
 
     "{ Pragma: +optSpace }"
@@ -2944,10 +2948,26 @@
 
     "/ could still be a block or false.
     (aBooleanOrBlock value) ifFalse:[
-	AssertionFailedError
-	    raiseRequestWith:self
-	    errorString:(messageIfFailing, ' {',thisContext methodHome sender "methodHome" printString,' }')
-    ].
+        AssertionFailedError
+            raiseRequestWith:self
+            errorString:(messageIfFailing, ' {',thisContext methodHome sender "methodHome" printString,' }')
+    ].
+
+    "
+     self assert:false description:'xxx'
+    "
+
+    "Modified (comment): / 06-03-2012 / 11:26:48 / cg"
+!
+
+assert:aBooleanOrBlock message:messageIfFailing
+    "fail, if the argument does not evaluate to true and report an error"
+
+    "{ Pragma: +optSpace }"
+
+    <resource: #skipInDebuggersWalkBack>
+
+    ^ self assert: aBooleanOrBlock description: messageIfFailing
 
     "
      self assert:false message:'xxx'
@@ -10312,6 +10332,7 @@
 
 
 
+
 !Object class methodsFor:'documentation'!
 
 version