--- a/SmalltalkChunkFileSourceWriter.st	Thu Sep 17 16:14:08 2009 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Thu Sep 17 16:14:59 2009 +0200
@@ -11,7 +11,7 @@
 "
 "{ Package: 'stx:libbasic' }"
 
-Object subclass:#SmalltalkChunkFileSourceWriter
+AbstractSourceFileWriter subclass:#SmalltalkChunkFileSourceWriter
 	instanceVariableNames:'classBeingSaved methodsAlreadySaved'
 	classVariableNames:''
 	poolDictionaries:''
@@ -422,5 +422,5 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.8 2009-08-13 15:54:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.9 2009-09-17 14:14:59 fm Exp $'
 ! !