--- a/Metaclass.st	Fri Mar 19 09:16:43 2004 +0100
+++ b/Metaclass.st	Fri Mar 19 09:17:11 2004 +0100
@@ -545,6 +545,20 @@
     myClass fileOutClassInstVarDefinitionOn:aStream
 
     "Modified: / 21.6.1998 / 04:10:02 / cg"
+!
+
+fileOutOn:outStreamArg withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter encoder:encoderOrNil
+    "file out my definition and all methods onto aStream.
+     If stampIt is true, a timeStamp comment is prepended.
+     If initIt is true, and the class implements a class-initialize method,
+     append a corresponding doIt expression for initialization.
+     The order by which the fileOut is done is used to put the version string at the end.
+     Thus, if the version string is expanded (by CVS), the characterPositions of methods should not move"
+
+    SmalltalkChunkFileSourceWriter new
+        fileOut:myClass on:outStreamArg withTimeStamp:stampIt 
+        withInitialize:initIt withDefinition:withDefinition 
+        methodFilter:methodFilter encoder:encoderOrNil
 ! !
 
 !Metaclass methodsFor:'private'!
@@ -706,6 +720,10 @@
     "Modified: 2.4.1997 / 01:17:04 / stefan"
 !
 
+sourceFileSuffix
+    ^ 'st'
+!
+
 sourceStream
     "return the classes source stream"
 
@@ -725,7 +743,7 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.187 2003-09-22 09:10:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.188 2004-03-19 08:17:11 ca Exp $'
 ! !
 
 Metaclass initialize!