diff --git a/compiler/arm/aoptcpu.pas b/compiler/arm/aoptcpu.pas
index 5724792..8ba2982 100644
--- a/compiler/arm/aoptcpu.pas
+++ b/compiler/arm/aoptcpu.pas
@@ -1145,7 +1145,8 @@ Implementation
                       to
                       add reg2, ...
                     }
-                    if GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) then
+                    if taicpu(p).opcode <> A_STR and
+                       GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) then
                       RemoveSuperfluousMove(p, hp1, 'DataMov2Data');
                   end;
                 A_CMP: