--- a/Method.st	Wed Jul 03 10:54:16 1996 +0200
+++ b/Method.st	Wed Jul 03 11:02:35 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 14:32:15'                   !
-
 CompiledCode subclass:#Method
 	instanceVariableNames:'source sourcePosition category package'
 	classVariableNames:'PrivateMethodSignal LastFileReference LastSourceFileName
@@ -325,6 +323,16 @@
     "Modified: 22.4.1996 / 19:53:58 / cg"
 !
 
+decompiledSource
+    |s|
+
+    s := '' writeStream.
+    self decompileTo:s.
+    ^ s contents
+
+    "Created: 3.7.1996 / 10:12:31 / cg"
+!
+
 flags
     "return the flags (number of method variables, stacksize etc.).
      Dont depend on the values in the flag field - its interpretations
@@ -2128,6 +2136,6 @@
 !Method  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.91 1996-06-28 15:32:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.92 1996-07-03 09:02:35 cg Exp $'
 ! !
 Method initialize!