--- a/packages/StxPackageFileWriter.st	Thu Apr 10 08:45:44 2003 +0200
+++ b/packages/StxPackageFileWriter.st	Thu Apr 10 12:02:49 2003 +0200
@@ -86,9 +86,9 @@
     aPackage classNames size > 0 ifTrue:[
         aWriteStream nextPutAll:'"Class Definitions"!!'.
         aWriteStream cr.
-        aPackage classNames do:[:aClass |
-            aClass nameSpace isNamespace ifTrue:[
-                self fileOutClass:(Smalltalk at:aClass) on:aWriteStream.
+        aPackage classesDo:[:aClass |
+            aClass nameSpace isNameSpace ifTrue:[
+                self fileOutClass:aClass on:aWriteStream.
             ] ifFalse:[| ownerClass |
                 "aClass is a privateClass"
                 ownerClass := aClass nameSpace package.
@@ -429,5 +429,5 @@
 !StxPackageFileWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/packages/StxPackageFileWriter.st,v 1.2 2003-04-10 06:26:37 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/packages/StxPackageFileWriter.st,v 1.3 2003-04-10 10:02:49 james Exp $'
 ! !