--- a/Method.st	Mon May 26 10:02:26 2008 +0200
+++ b/Method.st	Mon May 26 10:34:35 2008 +0200
@@ -203,6 +203,7 @@
     ^ PrivateMethodSignal
 ! !
 
+
 !Method class methodsFor:'queries'!
 
 isBuiltInClass
@@ -2448,6 +2449,16 @@
     ^ false
 !
 
+shouldBeSkippedInDebuggersWalkBack
+    "return true, if this method thinks, it should be skipped in a walkback.
+     This is done by looking for a #skipInDebuggersWalkBack flag in the methods resources."
+
+    |resources|
+
+    resources := self resources.
+    ^ resources notNil and:[ resources includesKey:#skipInDebuggersWalkBack ].
+!
+
 superMessages
     "return a collection of message-selectors, sent to super by this method."
 
@@ -2821,7 +2832,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.313 2008-05-13 15:26:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.314 2008-05-26 08:34:35 cg Exp $'
 ! !
 
 Method initialize!