From 3c7321ab80e18c1bc6f96e4282385d68f0b973e8 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 19 Nov 2012 15:34:52 +0100
Subject: [PATCH] Bugfix: some retractions between objects/copies were skipped.
 #786

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

diff --git a/lib/Slic3r/GCode.pm b/lib/Slic3r/GCode.pm
index 9dd181223..f65e6b11f 100644
--- a/lib/Slic3r/GCode.pm
+++ b/lib/Slic3r/GCode.pm
@@ -54,7 +54,7 @@ sub set_shift {
     $self->shift_x($shift[X]);
     $self->shift_y($shift[Y]);
     
-    $self->last_pos->translate(map -$_, @shift);
+    $self->last_pos->translate(map -(scale $_), @shift);
 }
 
 # this method accepts Z in scaled coordinates