--- a/Project.st	Fri Sep 19 01:00:35 1997 +0200
+++ b/Project.st	Fri Sep 19 01:03:17 1997 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:46:24 am'                  !
-
 Object subclass:#Project
 	instanceVariableNames:'name changeSet views directoryName properties packageName
 		repositoryDirectory repositoryModule defaultNameSpace
@@ -733,7 +731,7 @@
 
     |classes methods methodClasses dir stream|
 
-    dir := FileDirectory directoryNamed:self directory.
+    dir := self directory asFilename.
     Transcript showCR:'creating sources in ' , dir pathName , ' ...'; endEntry.
 
     classes := self classes.
@@ -791,6 +789,7 @@
     ].
 
     "Modified: 1.11.1996 / 16:37:15 / cg"
+    "Modified: 18.9.1997 / 18:50:34 / stefan"
 !
 
 findTopFrom:directoryName
@@ -1008,6 +1007,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.55 1997-09-08 18:08:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.56 1997-09-18 23:03:17 stefan Exp $'
 ! !
 Project initialize!