--- a/WrappedMethod.st	Wed Jul 01 13:03:47 2020 +0100
+++ b/WrappedMethod.st	Wed Aug 05 16:18:49 2020 +0100
@@ -1,5 +1,6 @@
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
+ COPYRIGHT (c) 2020 LabWare
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -25,6 +26,7 @@
 copyright
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
+ COPYRIGHT (c) 2020 LabWare
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -109,6 +111,15 @@
     self originalMethod category:newCategory
 !
 
+dbgVariables
+    "Return a list of variables for this context (as collection 
+     of `DIVariable` instances) or nil if no debug info is recorded"
+
+    ^ self originalMethod dbgVariables select: [:var | var isArgument ]
+
+    "Created: / 09-07-2020 / 20:26:40 / Jan Vrany <jan.vrany@labware.com>"
+!
+
 literals
     "return the wrapped method's literals"
 
@@ -520,6 +531,11 @@
     ^ '$Header$'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id$'
 ! !