--- a/Project.st	Tue Mar 28 19:44:33 2000 +0200
+++ b/Project.st	Wed Mar 29 15:41:44 2000 +0200
@@ -2028,7 +2028,11 @@
                 out nextPutAll:'  '''.
                 fileName := clsInfo classFileName.
                 fileName isNil ifTrue:[
-                    fileName := cls nameWithoutNameSpacePrefix
+                    cls isBehavior ifFalse:[
+                        fileName := cls
+                    ] ifTrue:[
+                        fileName := cls nameWithoutNameSpacePrefix
+                    ]
                 ].
                 (fileName endsWith:'.st') ifFalse:[
                     fileName := fileName , '.st'
@@ -3817,6 +3821,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.154 2000-03-24 17:04:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.155 2000-03-29 13:41:44 cg Exp $'
 ! !
 Project initialize!