From 92e86a225980564a8aede1aff2531c9105809cce Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 28 Nov 2011 19:59:39 +0100
Subject: [PATCH] Bugfix: plate was lifted even when retracting for Z change

---
 lib/Slic3r/Extruder.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Slic3r/Extruder.pm b/lib/Slic3r/Extruder.pm
index 5b2b27ef2..a1c21bf0f 100644
--- a/lib/Slic3r/Extruder.pm
+++ b/lib/Slic3r/Extruder.pm
@@ -150,7 +150,7 @@ sub retract {
     # prepare moves
     $self->print_feed_rate($self->retract_speed);
     my $retract = [undef, undef, -$Slic3r::retract_length, "retract"];
-    my $lift    = ($Slic3r::retract_lift == 0)
+    my $lift    = ($Slic3r::retract_lift == 0 || defined $params{move_z})
         ? undef
         : [undef, $self->z + $Slic3r::retract_lift, 0, 'lift plate during retraction'];