Modified:
/branches/gcc-linux/StrongtalkSource/UnixFilePath.dlt
=======================================
--- /branches/gcc-linux/StrongtalkSource/UnixFilePath.dlt Thu Dec 31
10:59:55 2009
+++ /branches/gcc-linux/StrongtalkSource/UnixFilePath.dlt Thu Dec 31
11:03:03 2009
@@ -26,7 +26,7 @@
with: buflen.
result asUnsignedLong = 0
ifTrue: [self error: 'Unable to get current directory']
- ifFalse: [self new pattern: buf asString ]
+ ifFalse: [self for: buf strcpy ]
] ensure: [ buf free ]!
currentDirectory: file <FilePath>