--- a/WrappedMethod.st	Tue Jan 20 13:51:10 1998 +0100
+++ b/WrappedMethod.st	Fri Jan 23 18:50:56 1998 +0100
@@ -61,6 +61,23 @@
     ^ self originalMethod literals
 !
 
+literalsDetect:aBlock ifNone:exceptionBlock
+    "access the wrapped methods literals"
+
+    ^ self originalMethod literalsDetect:aBlock ifNone:exceptionBlock
+
+    "Created: / 23.1.1998 / 13:23:15 / stefan"
+!
+
+literalsDo:aBlock
+    "access the wrapped methods literals"
+
+    ^ self originalMethod literalsDo:aBlock
+
+    "Created: / 23.1.1998 / 13:09:36 / stefan"
+    "Modified: / 23.1.1998 / 13:22:38 / stefan"
+!
+
 methodArgAndVarNames
     "return the names of the args and locals of the wrapped method."
 
@@ -84,15 +101,33 @@
 originalMethod
     "return the method the receiver is wrapping"
 
-    "a kludge: it must be in the literal array somewhere"
-    self literalsDo:[:aLiteral |
+    "a kludge: it must be in my literal array somewhere"
+    super literalsDo:[:aLiteral |
         aLiteral isMethod ifTrue:[
             ^ aLiteral
         ]
     ].
     ^ nil
 
-    "Modified: 25.6.1996 / 22:08:03 / stefan"
+    "Modified: / 23.1.1998 / 13:08:25 / stefan"
+!
+
+privacy
+    "return the wrapped methods privacy"
+
+    ^ self originalMethod privacy
+
+    "Created: / 23.1.1998 / 13:09:17 / stefan"
+    "Modified: / 23.1.1998 / 13:20:59 / stefan"
+!
+
+setPrivacy:aSymbol
+    "set the wrapped methods privacy"
+
+    ^ self originalMethod setPrivacy:aSymbol
+
+    "Modified: / 23.1.1998 / 13:21:26 / stefan"
+    "Created: / 23.1.1998 / 15:26:26 / stefan"
 !
 
 source
@@ -145,5 +180,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.16 1997-04-11 15:30:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.17 1998-01-23 17:50:56 stefan Exp $'
 ! !