diff --git a/lib/Slic3r/Print/Object.pm b/lib/Slic3r/Print/Object.pm
index 036632855..3d0d56cdb 100644
--- a/lib/Slic3r/Print/Object.pm
+++ b/lib/Slic3r/Print/Object.pm
@@ -70,8 +70,10 @@ sub make_perimeters {
     # prerequisites
     $self->slice;
 
-    $self->print->status_cb->(20, "Generating perimeters");
-    $self->_make_perimeters;
+    if (! $self->step_done(STEP_PERIMETERS)) {
+        $self->print->status_cb->(20, "Generating perimeters");
+        $self->_make_perimeters;
+    }
 }
 
 sub prepare_infill {