--- a/Project.st	Wed Mar 29 15:41:44 2000 +0200
+++ b/Project.st	Wed Mar 29 15:45:57 2000 +0200
@@ -1907,25 +1907,36 @@
 
     notEmpty ifTrue:[
         classes do:[:cls |
-            |clsInfo cond fileName|
+            |clsInfo cond fileName clsName clsCategory|
 
             clsInfo := self classInfoFor:cls.
             cond := clsInfo conditionForInclusion.
             (cond == #always or:[cond == #autoload]) ifTrue:[
                 fileName := clsInfo classFileName.
                 fileName isNil ifTrue:[
-                    fileName := cls nameWithoutNameSpacePrefix
+                    cls isBehavior ifTrue:[
+                        fileName := cls nameWithoutNameSpacePrefix
+                    ] ifFalse:[
+                        fileName := cls
+                    ]
                 ].
                 (fileName endsWith:'.st') ifTrue:[
                     fileName := fileName copyWithoutLast:3
                 ].
-                out nextPutAll:cls name.
+                cls isBehavior ifTrue:[
+                    clsName := cls name.
+                    clsCategory := cls category.
+                ] ifFalse:[
+                    clsName := cls.
+                    clsCategory := 'unknown category'.
+                ].
+                out nextPutAll:clsName.
                 out space.
                 out nextPutAll:fileName.
                 out space.
-                out nextPutAll:cls package.
+                out nextPutAll:self package.
                 out space.
-                out nextPut:$'; nextPutAll:cls category; nextPut:$'.
+                out nextPut:$'; nextPutAll:clsCategory; nextPut:$'.
                 out cr.
             ]
         ].
@@ -3821,6 +3832,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.155 2000-03-29 13:41:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.156 2000-03-29 13:45:57 cg Exp $'
 ! !
 Project initialize!