--- a/ObjectFileLoader.st	Tue Aug 09 13:24:10 2011 +0200
+++ b/ObjectFileLoader.st	Tue Aug 09 13:24:22 2011 +0200
@@ -2491,7 +2491,7 @@
         self activityNotification:'generating shared object'.
 
         ParserFlags linkArgs isNil ifTrue:[
-            ld := ParserFlags linkCommand , ' ' , baseFileName , '.obj'.
+            ld := self linkCommand , ' ' , baseFileName , '.obj'.
             ld := ld
                , ' /NOPACK /NOLOGO /DEBUG /MACHINE:I386 /DLL'
                , ' /OUT:' , baseFileName , '.dll '
@@ -2516,7 +2516,7 @@
             ].
 
             ParserFlags useBorlandC ifTrue:[
-                ld := ParserFlags linkCommand , ' ' , (ParserFlags linkArgs bindWith:baseFileName).
+                ld := self linkCommand , ' ' , (ParserFlags linkArgs bindWith:baseFileName).
                 ld := ld , ' c0d32.obj ' , baseFileName , '.obj '.
                 ld := ld , ',' , baseFileName , '.dll,,',libDir,'\librun.lib '.
                 ld := ld , (ParserFlags searchedLibraries asStringCollection asStringWith: $ ).
@@ -2551,7 +2551,7 @@
 
     "/ UNIX systems
 
-    ld := ParserFlags linkCommand ? 'ld'.
+    ld := self linkCommand ? 'ld'.
     needSharedObject := false.
 
     ObjectFileLoader loadableBinaryObjectFormat == #elf ifTrue:[
@@ -2560,8 +2560,8 @@
          Currently, we support 32-bit objects only.
         "
         needSharedObject := true.
-        ld := ParserFlags linkCommand ? 'cc'.
-        ldArg := ParserFlags linkSharedArgs ? '-m32'.
+        ld := self linkCommand ? 'cc'.
+        ldArg := self linkSharedArgs ? '-m32'.
     ].
 
     osType = 'irix' ifTrue:[
@@ -2569,7 +2569,7 @@
          link it to a shared object with 'ld -shared'
         "
         needSharedObject := true.
-        ldArg := ParserFlags linkSharedArgs ? '-shared'.
+        ldArg := self linkSharedArgs ? '-shared'.
     ].
 
     osType = 'sys5_4' ifTrue:[
@@ -2577,7 +2577,7 @@
          link it to a shared object with 'ld -G'
         "
         needSharedObject := true.
-        ldArg := ParserFlags linkSharedArgs ? '-G'.
+        ldArg := self linkSharedArgs ? '-G'.
     ].
 
     osType = 'osf' ifTrue:[
@@ -2585,7 +2585,7 @@
          link it to a shared object with 'ld -shared'
         "
         needSharedObject := true.
-        ldArg := ParserFlags linkSharedArgs ? '-shared'.
+        ldArg := self linkSharedArgs ? '-shared'.
     ].
 
     osType = 'solaris' ifTrue:[
@@ -2593,7 +2593,7 @@
          link it to a shared object with 'ld -G -B dynamic'
         "
         needSharedObject := true.
-        ldArg := ParserFlags linkSharedArgs ? '-G -Bdynamic'.
+        ldArg := self linkSharedArgs ? '-G -Bdynamic'.
     ].
 
     osType = 'hpux' ifTrue:[
@@ -2601,7 +2601,7 @@
          link it to a shared object with 'ld -b -B immediate'
         "
         needSharedObject := true.
-        ldArg := ParserFlags linkSharedArgs ? '-b -B immediate'.
+        ldArg := self linkSharedArgs ? '-b -B immediate'.
     ].
 
     osType = 'aix' ifTrue:[
@@ -4295,11 +4295,11 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.299 2011-08-09 11:17:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.300 2011-08-09 11:24:22 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.299 2011-08-09 11:17:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.300 2011-08-09 11:24:22 stefan Exp $'
 ! !
 
 ObjectFileLoader initialize!