--- a/Method.st	Fri Nov 17 11:51:42 1995 +0100
+++ b/Method.st	Fri Nov 17 16:28:39 1995 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.56 1995-11-13 09:08:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.57 1995-11-17 15:28:39 cg Exp $'
 !
 
 documentation
@@ -171,6 +171,18 @@
     ^ 15  "cannot be easily changed; should ask the VM about this number"
 ! !
 
+!Method methodsFor:'copying'!
+
+copy
+    |aCopy|
+
+    aCopy := super copy.
+    sourcePosition notNil ifTrue:[
+	aCopy source:(self source)
+    ].
+    ^ aCopy
+! !
+
 !Method methodsFor:'queries'!
 
 isMethod