--- 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 $'
 ! !

--- a/ClassDescr.st	Fri Jun 19 02:20:44 1998 +0200
+++ b/ClassDescr.st	Fri Jun 19 02:30:12 1998 +0200
@@ -556,6 +556,23 @@
     "Created: 2.4.1997 / 00:51:11 / stefan"
 !
 
+definition
+    "return an expression-string to define myself"
+
+    |s|
+
+    s := WriteStream on:(String new).
+    self fileOutDefinitionOn:s.
+    ^ s contents
+
+    "
+     Object definition 
+     Point definition  
+    "
+
+    "Created: / 19.6.1998 / 02:25:49 / cg"
+!
+
 instVarAtOffset:index
     "return the name of the instance variable at index"
 
@@ -2301,6 +2318,12 @@
     "Created: 1.4.1997 / 15:57:18 / stefan"
 !
 
+sourceCodeForMethod:aMethod at:aSelector
+    ^ aMethod source
+
+    "Created: / 19.6.1998 / 02:28:09 / cg"
+!
+
 whichCategoryIncludesSelector:aSelector
     "return the category under which the method for aSelector is
      classified"
@@ -3022,6 +3045,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.73 1998-06-18 23:00:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.74 1998-06-19 00:29:21 cg Exp $'
 ! !
 ClassDescription initialize!

--- a/ClassDescription.st	Fri Jun 19 02:20:44 1998 +0200
+++ b/ClassDescription.st	Fri Jun 19 02:30:12 1998 +0200
@@ -556,6 +556,23 @@
     "Created: 2.4.1997 / 00:51:11 / stefan"
 !
 
+definition
+    "return an expression-string to define myself"
+
+    |s|
+
+    s := WriteStream on:(String new).
+    self fileOutDefinitionOn:s.
+    ^ s contents
+
+    "
+     Object definition 
+     Point definition  
+    "
+
+    "Created: / 19.6.1998 / 02:25:49 / cg"
+!
+
 instVarAtOffset:index
     "return the name of the instance variable at index"
 
@@ -2301,6 +2318,12 @@
     "Created: 1.4.1997 / 15:57:18 / stefan"
 !
 
+sourceCodeForMethod:aMethod at:aSelector
+    ^ aMethod source
+
+    "Created: / 19.6.1998 / 02:28:09 / cg"
+!
+
 whichCategoryIncludesSelector:aSelector
     "return the category under which the method for aSelector is
      classified"
@@ -3022,6 +3045,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.73 1998-06-18 23:00:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.74 1998-06-19 00:29:21 cg Exp $'
 ! !
 ClassDescription initialize!