From d8b8470d547f71bfd6e121e84620533abb514512 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 1 May 2012 14:44:40 +0200
Subject: [PATCH] Retract before changing tool. #319

---
 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 b1d6b62e63..a7428bc5ea 100644
--- a/lib/Slic3r/Extruder.pm
+++ b/lib/Slic3r/Extruder.pm
@@ -341,7 +341,7 @@ sub set_tool {
     my $self = shift;
     my ($tool) = @_;
     
-    return sprintf "T%d%s\n", $tool, ($Slic3r::gcode_comments ? ' ; change tool' : '');
+    return $self->retract . sprintf "T%d%s\n", $tool, ($Slic3r::gcode_comments ? ' ; change tool' : '');
 }
 
 sub set_fan {