diff --git a/LuaLibs/CalcToolPath.lua b/LuaLibs/CalcToolPath.lua
index aa8e724..c48675b 100644
--- a/LuaLibs/CalcToolPath.lua
+++ b/LuaLibs/CalcToolPath.lua
@@ -458,9 +458,10 @@ local function AddRetraction( nCrvId, vtSlicing, dCoastingLen, dWipeLen, dWipeDi
       end
       
       if nWipeId then
+         local dStrand = EgtGetInfo( nCrvId, KEY_CRV_STRAND, 'd')
          EgtSetName( nWipeId, WIPE_CRV)
          EgtSetInfo( nWipeId, KEY_TYPE, TYPE.WIPE)
-         EgtSetInfo( nWipeId, KEY_CRV_STRAND, 0)
+         EgtSetInfo( nWipeId, KEY_CRV_STRAND, dStrand)
          EgtSetColor( nWipeId, EgtStdColor('AQUA'))
       end
    end
@@ -1657,7 +1658,7 @@ local function AddRibsLeadOut( nCrv, nLoopsGrp, vtSlicing, nGrpTmp, bForceNoSoli
                   EgtRelocateGlob( nWipe, nCoasting or nCrvLO or nCrv, GDB_IN.AFTER)
                   EgtSetName( nWipe, WIPE_CRV)
                   EgtSetInfo( nWipe, KEY_TYPE, TYPE.WIPE)
-                  EgtSetInfo( nWipe, KEY_CRV_STRAND, 0)
+                  EgtSetInfo( nWipe, KEY_CRV_STRAND, dStrand)
                   EgtSetColor( nWipe, EgtStdColor('AQUA'))
                end
             end