--- a/ObjectFileLoader.st	Tue Aug 09 11:00:00 2011 +0200
+++ b/ObjectFileLoader.st	Tue Aug 09 12:51:05 2011 +0200
@@ -2545,7 +2545,7 @@
             "/ ObjectFileLoadError raiseRequestErrorString:'link failed'.
             ^ nil
         ].
-        oFileName := (Filename currentDirectory construct:(baseFileName , self sharedLibraryExtension)) name.
+        oFileName := (baseFileName , self sharedLibraryExtension) asFilename name.
         ^ oFileName
     ].
 
@@ -2633,11 +2633,11 @@
                 ' -bM:SRE -e _' , baseFileName , '_Init'.
     ].
 
-    oFileName := './' , baseFileName , (self objectFileExtension).
+    oFileName := baseFileName , self objectFileExtension.
     needSharedObject ifTrue:[
         self activityNotification:'generating shared object'.
 
-        soFileName := './' , baseFileName , (self sharedLibraryExtension).
+        soFileName := baseFileName , self sharedLibraryExtension.
         OperatingSystem removeFile:soFileName.
         ld := ld , ' ' , ldArg , ' ', (ParserFlags linkArgs ? '') ,
                  ' -o ' , soFileName , ' ' , oFileName , ' ',
@@ -4293,11 +4293,11 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.296 2011-08-07 12:08:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.297 2011-08-09 10:51:05 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.296 2011-08-07 12:08:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.297 2011-08-09 10:51:05 stefan Exp $'
 ! !
 
 ObjectFileLoader initialize!