--- a/Class.st	Fri Jun 19 02:20:44 1998 +0200
+++ b/Class.st	Fri Jun 19 02:30:12 1998 +0200
@@ -657,21 +657,6 @@
     ]
 !
 
-definition
-    "return an expression-string to define myself"
-
-    |s|
-
-    s := WriteStream on:(String new).
-    self fileOutDefinitionOn:s.
-    ^ s contents
-
-    "
-     Object definition 
-     Point definition  
-    "
-!
-
 environment
     "return the namespace I am contained in; ST-80 compatible name"
 
@@ -3615,12 +3600,6 @@
     "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"
 
@@ -3899,5 +3878,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.316 1998-06-19 00:10:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.317 1998-06-19 00:30:12 cg Exp $'
 ! !