--- a/WrappedMethod.st	Wed Nov 23 00:07:44 1994 +0100
+++ b/WrappedMethod.st	Mon Nov 28 21:57:03 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
 
 WrappedMethod comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.3 1994-08-05 01:07:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.4 1994-11-28 20:57:03 claus Exp $
 '!
 
 !WrappedMethod class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.3 1994-08-05 01:07:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.4 1994-11-28 20:57:03 claus Exp $
 "
 !
 
@@ -55,19 +55,22 @@
 !WrappedMethod methodsFor:'queries'!
 
 isWrapped
+    "return true, if the receiver is a wrapped method.
+     True is returned here, since the receiver is always a wrapped one"
+
     ^ true
 ! !
 
 !WrappedMethod methodsFor:'accessing'!
 
 originalMethod
-    "return the method I am wrapping"
+    "return the method the receiver is wrapping"
 
     "a kludge: it must be in the literal array somewhere"
     literals do:[:aLiteral |
-        aLiteral class == Method ifTrue:[
-            ^ aLiteral
-        ]
+	aLiteral class == Method ifTrue:[
+	    ^ aLiteral
+	]
     ].
     ^ nil
 !
@@ -78,10 +81,6 @@
     ^ literals
 !
 
-methodArgAndVarNames
-    ^ self originalMethod methodArgAndVarNames
-!
-
 source
     "return the wrapped methods source"
 
@@ -95,10 +94,20 @@
 !
 
 numberOfMethodVars
+    "return the number of locals in the wrapped method."
+
     ^ self originalMethod numberOfMethodVars 
 !
 
 methodVarNames
+    "return the names of the locals of the wrapped method."
+
     ^ self originalMethod methodVarNames 
+!
+
+methodArgAndVarNames
+    "return the names of the args and locals of the wrapped method."
+
+    ^ self originalMethod methodArgAndVarNames
 ! !