CVS difference for acats/new/c650b04.a

--- acats/new/c650b04.a	2016/01/22 05:43:02	1.2
+++ acats/new/c650b04.a	2016/01/23 01:25:06	1.3
@@ -261,7 +261,7 @@
             Report.Failed ("Test function did not raise Program_Error " &
                 "as expected (" & Natural'Image(Subtest) & ')');
          end if;
-         F650B00_2.Add_Spin (Obj, 20);
+         F650B00_2.Add_Spin (Obj, Base_RPM);
          if F650B00_2."/=" (F650B00_2.Spin (Obj), Expected_Spin) then
             Report.Failed ("Unexpected spin value (" &
                 Natural'Image(Subtest) & ')');