diff --git a/lib/Slic3r/Format/AMF.pm b/lib/Slic3r/Format/AMF.pm
index 5d174230b..901cb4544 100644
--- a/lib/Slic3r/Format/AMF.pm
+++ b/lib/Slic3r/Format/AMF.pm
@@ -9,14 +9,14 @@ sub read_file {
     my ($file) = @_;
     
     eval "require Slic3r::Format::AMF::Parser; 1"
-        or die "AMF parsing requires XML::SAX::ExpatXS\n";
+        or die "AMF parsing requires XML::SAX\n";
     
     open my $fh, '<', $file or die "Failed to open $file\n";
     
     my $vertices = [];
     my $materials = {};
     my $meshes_by_material = {};
-    XML::SAX::ExpatXS
+    XML::SAX::PurePerl
         ->new(Handler => Slic3r::Format::AMF::Parser->new(
             _vertices           => $vertices,
             _materials          => $materials,
diff --git a/lib/Slic3r/Format/AMF/Parser.pm b/lib/Slic3r/Format/AMF/Parser.pm
index b6c7dbefc..4d9394973 100644
--- a/lib/Slic3r/Format/AMF/Parser.pm
+++ b/lib/Slic3r/Format/AMF/Parser.pm
@@ -2,7 +2,7 @@ package Slic3r::Format::AMF::Parser;
 use strict;
 use warnings;
 
-use XML::SAX::ExpatXS;
+use XML::SAX::PurePerl;
 use XXX;
 
 use base 'XML::SAX::Base';