--- a/xmlreaderimpl/trunk/stx_goodies_xmlsuite_xmlreaderimpl.st	Tue Mar 31 16:16:04 2009 +0000
+++ b/xmlreaderimpl/trunk/stx_goodies_xmlsuite_xmlreaderimpl.st	Thu Apr 02 11:00:00 2009 +0000
@@ -21,12 +21,11 @@
     | packageDir expatXMLReaderLib |
     packageDir := Smalltalk getPackageDirectoryForPackage: self package. 
 
-    expatXMLReaderLib := packageDir construct: 
+    expatXMLReaderLib := ((packageDir construct: 'precompiled') construct: Smalltalk versionString) construct:
                                     ('XMLv2__ExpatXMLReader' , 
-                                    ObjectFileLoader sharedLibraryExtension , 
-                                    '.' , Smalltalk versionString).
+                                    ObjectFileLoader sharedLibraryExtension). 
     expatXMLReaderLib exists ifFalse:
-        [expatXMLReaderLib := packageDir construct: 
+        [expatXMLReaderLib := ((packageDir construct: 'precompiled') construct: 'common') construct:
                                         ('XMLv2__ExpatXMLReader' , 
                                         ObjectFileLoader sharedLibraryExtension)].
     expatXMLReaderLib exists ifTrue: