diff --git a/UCRTHelper.pas b/UCRTHelper.pas
index d70e038..55d8fc6 100644
--- a/UCRTHelper.pas
+++ b/UCRTHelper.pas
@@ -35,6 +35,7 @@ begin
     if (c = #8) and (Length(Result) > 0) then
     begin
       Write(#8, ' ', #8);
+      SetLength(Result, Length(Result) - 1);
     end
     else if c > #31 then
     begin