--- a/Class.st	Mon Oct 06 18:47:45 1997 +0200
+++ b/Class.st	Tue Oct 07 14:42:28 1997 +0200
@@ -1971,9 +1971,9 @@
     Project notNil ifTrue:[
         dirName := Project currentProjectDirectory
     ] ifFalse:[
-        dirName := ''
+        dirName := '.'
     ].
-    fileName := dirName , fileName.
+    fileName := dirName asFilename constructString:fileName.
 
     aStream := FileStream newFileNamed:fileName.
     aStream isNil ifTrue:[
@@ -1986,7 +1986,7 @@
     self binaryFileOutOn:aStream sourceMode:sourceMode.
     aStream close.
 
-    "Modified: 5.1.1997 / 15:39:30 / cg"
+    "Modified: 7.10.1997 / 13:40:00 / cg"
 !
 
 fileOut
@@ -3836,5 +3836,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.294 1997-09-20 21:13:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.295 1997-10-07 12:42:28 cg Exp $'
 ! !