--- a/Class.st	Mon Feb 06 02:10:38 1995 +0100
+++ b/Class.st	Mon Feb 06 03:27:23 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.26 1995-02-02 12:20:52 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.27 1995-02-06 02:27:23 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.26 1995-02-02 12:20:52 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.27 1995-02-06 02:27:23 claus Exp $
 "
 !
 
@@ -1500,6 +1500,12 @@
 fileOutDefinitionOn:aStream
     "append an expression on aStream, which defines myself."
 
+    ^ self basicFileOutDefinitionOn:aStream
+!
+
+basicFileOutDefinitionOn:aStream
+    "append an expression on aStream, which defines myself."
+
     |isVar line|
 
     "take care of nil-superclass"