diff --git a/rtl/inc/iso7185.pp b/rtl/inc/iso7185.pp
index 01ae4b185e..ed9658c575 100644
--- a/rtl/inc/iso7185.pp
+++ b/rtl/inc/iso7185.pp
@@ -256,7 +256,7 @@ unit iso7185;
       begin
         if c>=0.0 then
           Round:=Trunc(c+0.5)
-        else R
+        else
           Round:=Trunc(c-0.5);
       end;
 {$endif FPUNONE}