diff --git a/src/cpu/ctfe_d6502.d b/src/cpu/ctfe_d6502.d
index 34a1f41..6e406b5 100644
--- a/src/cpu/ctfe_d6502.d
+++ b/src/cpu/ctfe_d6502.d
@@ -405,7 +405,7 @@ string OpBody(int op, string chip, bool s, bool c)
             break;
         case "ROR":
             if (op == 0x6a)
-                ret ~= ShiftRight(_A);
+                ret ~= RotateRight(_A);
             else
                 ret ~= RMW(RotateRight("data"), env);
             break;