--- a/WrappedMethod.st	Wed Jun 26 09:44:49 1996 +0200
+++ b/WrappedMethod.st	Fri Jun 28 17:32:35 1996 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 22:12:32'                   !
+
 Method subclass:#WrappedMethod
 	instanceVariableNames:''
 	classVariableNames:''
@@ -17,7 +19,7 @@
 	category:'Kernel-Methods'
 !
 
-!WrappedMethod class methodsFor:'documentation'!
+!WrappedMethod  class methodsFor:'documentation'!
 
 copyright
 "
@@ -50,7 +52,9 @@
 basicLiterals
     "return my literals"
 
-    ^ literals
+    ^ super literals
+
+    "Modified: 24.6.1996 / 14:10:34 / stefan"
 !
 
 literals
@@ -81,12 +85,14 @@
     "return the method the receiver is wrapping"
 
     "a kludge: it must be in the literal array somewhere"
-    literals do:[:aLiteral |
-	aLiteral isMethod ifTrue:[
-	    ^ aLiteral
-	]
+    self literalsDo:[:aLiteral |
+        aLiteral isMethod ifTrue:[
+            ^ aLiteral
+        ]
     ].
     ^ nil
+
+    "Modified: 25.6.1996 / 22:08:03 / stefan"
 !
 
 source
@@ -104,8 +110,8 @@
     ^ true
 ! !
 
-!WrappedMethod class methodsFor:'documentation'!
+!WrappedMethod  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.11 1996-04-25 16:48:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.12 1996-06-28 15:32:35 stefan Exp $'
 ! !