--- a/RecursionLock.st	Fri Nov 15 20:01:21 2019 +0100
+++ b/RecursionLock.st	Fri Nov 15 20:05:05 2019 +0100
@@ -145,6 +145,14 @@
 
 !RecursionLock methodsFor:'queries'!
 
+isOwnedByActiveProcess
+    "answer true, if the activeProcess has already acquired the lock."
+    
+    ^ Processor activeProcess == process
+
+    "Created: / 15-11-2019 / 16:04:06 / Stefan Vogel"
+!
+
 owner
     "return the owning processes (or nil)"