diff --git a/lib/Slic3r.pm b/lib/Slic3r.pm
index 0199c5507e..d078e1696d 100644
--- a/lib/Slic3r.pm
+++ b/lib/Slic3r.pm
@@ -3,7 +3,7 @@ package Slic3r;
 use strict;
 use warnings;
 
-our $VERSION = "0.5.5";
+our $VERSION = "0.5.5a";
 
 our $debug = 0;
 sub debugf {
diff --git a/lib/Slic3r/ExtrusionLoop.pm b/lib/Slic3r/ExtrusionLoop.pm
index c0b408138f..7df64a1e8f 100644
--- a/lib/Slic3r/ExtrusionLoop.pm
+++ b/lib/Slic3r/ExtrusionLoop.pm
@@ -6,7 +6,7 @@ use XXX;
 extends 'Slic3r::Polyline::Closed';
 
 # perimeter/fill/solid-fill/bridge/skirt
-has 'role'         => (is => 'ro', required => 1);
+has 'role'         => (is => 'rw', required => 1);
 
 sub split_at {
     my $self = shift;
diff --git a/lib/Slic3r/ExtrusionPath.pm b/lib/Slic3r/ExtrusionPath.pm
index 7cfbd73c00..17e6276591 100644
--- a/lib/Slic3r/ExtrusionPath.pm
+++ b/lib/Slic3r/ExtrusionPath.pm
@@ -11,7 +11,7 @@ has 'depth_layers' => (is => 'ro', default => sub {1});
 has 'flow_ratio' => (is => 'rw');
 
 # perimeter/fill/solid-fill/bridge/skirt
-has 'role'         => (is => 'ro', required => 1);
+has 'role'         => (is => 'rw', required => 1);
 
 use Slic3r::Geometry qw(PI X Y epsilon deg2rad rotate_points);
 use XXX;