--- a/VSEPackageFileSourceWriter.st	Fri Feb 13 03:02:27 2015 +0100
+++ b/VSEPackageFileSourceWriter.st	Fri Feb 13 03:02:36 2015 +0100
@@ -241,8 +241,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'.
+    classesToFileout do:[:cls | 
+        cls isPrivate ifTrue:[
+            self error:'Cannot file out private class: ',cls name.
+        ].
     ].
 
     rewriter := self class vseSourceRewriter new.
@@ -384,10 +386,10 @@
 !VSEPackageFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.18 2015-02-13 01:59:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.19 2015-02-13 02:02:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.18 2015-02-13 01:59:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.19 2015-02-13 02:02:36 cg Exp $'
 ! !