--- a/MethodWithBreakpoints.st	Mon Sep 16 17:38:41 2019 +0200
+++ b/MethodWithBreakpoints.st	Tue Sep 17 12:25:26 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2012 by Claus Gittinger
               All Rights Reserved
@@ -98,11 +100,19 @@
 !MethodWithBreakpoints methodsFor:'accessing'!
 
 originalMethod
+    "return the original method; the one without breakpoints"
+
     ^ originalMethod
 !
 
 originalMethod:something
     originalMethod := something.
+!
+
+originalMethodIfWrapped
+    "return the original method; the one without breakpoints"
+
+    ^ originalMethod ? self
 ! !
 
 !MethodWithBreakpoints methodsFor:'enumeration'!