--- a/Class.st	Fri Jun 19 01:00:31 1998 +0200
+++ b/Class.st	Fri Jun 19 01:04:04 1998 +0200
@@ -401,6 +401,14 @@
     ^ false
 
     "Created: / 27.10.1997 / 16:42:05 / cg"
+!
+
+rename:newName
+    "same as renameTo: - for ST80 compatibility"
+
+    ^ self renameTo:newName
+
+    "Created: / 18.6.1998 / 22:08:45 / cg"
 ! !
 
 !Class methodsFor:'accessing'!
@@ -3593,6 +3601,12 @@
     "Modified: 7.1.1997 / 12:01:08 / cg"
 !
 
+sourceCodeForMethod:aMethod at:aSelector
+    ^ aMethod source
+
+    "Created: / 19.6.1998 / 00:06:18 / cg"
+!
+
 sourceStream
     "return an open stream on my sourcefile, nil if that is not available"
 
@@ -3871,5 +3885,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.314 1998-06-15 19:42:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.315 1998-06-18 23:04:04 cg Exp $'
 ! !