--- a/xmlreaderimpl/trunk/stx_goodies_xmlsuite_xmlreaderimpl.st	Tue Mar 31 13:22:45 2009 +0000
+++ b/xmlreaderimpl/trunk/stx_goodies_xmlsuite_xmlreaderimpl.st	Tue Mar 31 13:32:01 2009 +0000
@@ -18,14 +18,26 @@
 !
 postLoadAction
 
-    | expatXMLReaderLibName expatXMLReaderLib |
-    expatXMLReaderLibName := 'XMLv2__ExpatXMLReader' , 
-                                ObjectFileLoader sharedLibraryExtension.
-    expatXMLReaderLib :=
-        (Smalltalk getPackageDirectoryForPackage: self package) 
-            construct: expatXMLReaderLibName.
-    expatXMLReaderLib exists 
-        ifTrue:[ObjectFileLoader loadObjectFile: expatXMLReaderLib nameString].
+    | packageDir expatXMLReaderLib |
+    packageDir := Smalltalk getPackageDirectoryForPackage: self package. 
+
+    expatXMLReaderLib := packageDir construct: 
+                                    ('XMLv2__ExpatXMLReader' , 
+                                    ObjectFileLoader sharedLibraryExtension , 
+                                    '.' , Smalltalk versionString).
+    expatXMLReaderLib exists ifFalse:
+        [expatXMLReaderLib := packageDir construct: 
+                                        ('XMLv2__ExpatXMLReader' , 
+                                        ObjectFileLoader sharedLibraryExtension)].
+    expatXMLReaderLib exists ifTrue:
+        [Transcript showCR:'Loading precompiled ExpatXMLReader class from: ' , expatXMLReaderLib nameString.
+        ObjectFileLoader loadObjectFile: expatXMLReaderLib nameString].
+
+    "
+        self postLoadAction   
+    "
+
+    "Modified: / 25-03-2009 / 13:46:27 / Martin Plicka <plickm1@fel.cvut.cz>"
 
 !