--- a/SmalltalkChunkFileSourceWriter.st	Mon Apr 15 15:07:33 2013 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Mon Apr 15 15:38:11 2013 +0200
@@ -309,8 +309,14 @@
 fileOutAllDefinitionsOf:aNonMetaClass on:aStream
     "append expressions on aStream, which defines myself and all of my private classes."
 
-    self fileOutDefinitionOf:aNonMetaClass on:aStream.
-    aStream nextPutChunkSeparator. 
+    |s|
+
+    s := CharacterWriteStream on:(String new:50).
+    self fileOutDefinitionOf:aNonMetaClass on:s.
+    aStream nextChunkPut:(s contents).
+
+    "/ self fileOutDefinitionOf:aNonMetaClass on:aStream.
+    "/ aStream nextPutChunkSeparator. 
     aStream cr; cr.
 
     "/
@@ -604,11 +610,11 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.21 2013-03-27 16:50:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.22 2013-04-15 13:38:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.21 2013-03-27 16:50:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.22 2013-04-15 13:38:11 cg Exp $'
 !
 
 version_SVN