X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/aef8ce6f8bbe0f0a5a7273d874d62f775cff5b58..652797413b32546b9f9d5ada1df0c3aa12b3de7b:/csrc/pfinnrfp.h

diff --git a/csrc/pfinnrfp.h b/csrc/pfinnrfp.h
index 6e2c628..ec476f7 100644
--- a/csrc/pfinnrfp.h
+++ b/csrc/pfinnrfp.h
@@ -207,7 +207,7 @@
 
     case ID_FP_FROUND:
         PUSH_TOS;
-        TOS = fp_round(FP_TOS);
+        TOS = (cell_t)fp_round(FP_TOS);
         M_FP_DROP;
         break;