--- a/VSEChunkFileSourceWriter.st	Fri Feb 13 02:59:36 2015 +0100
+++ b/VSEChunkFileSourceWriter.st	Fri Feb 13 02:59:46 2015 +0100
@@ -238,6 +238,10 @@
     classesToFileout := classesToFileout reject:[:cls | cls isSubclassOf: ProjectDefinition ].
     classesToFileout topologicalSort:[:a :b | b isSubclassOf:a].
 
+    (classesToFileout contains:[:cls | cls isPrivate]) ifTrue:[
+        self error:'Cannot file out private classes'.
+    ].
+
     rewriter := self class vseSourceRewriter new.
     rewriter classNamesToRewrite:classNameTranslations.
 
@@ -346,10 +350,10 @@
 !VSEChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.16 2015-02-06 13:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.17 2015-02-13 01:59:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.16 2015-02-06 13:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.17 2015-02-13 01:59:46 cg Exp $'
 ! !