X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/3760715f6e313ff90da32399fa1903c54f69d59b..e2531e837774276f6ffb3b284703c594644761f8:/csrc/pf_inner.c

diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index fe60d15..dad9265 100644
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -26,6 +26,8 @@
 **
 ***************************************************************/
 
+#include <sys/types.h>
+
 #include "pf_all.h"
 
 #ifdef WIN32
@@ -1544,7 +1546,7 @@ DBUG(("XX ah,m,l = 0x%8x,%8x,%8x - qh,l = 0x%8x,%8x\n", ah,am,al, qh,ql ));
 				CodeSize = TOS;
 				NameSize = M_POP;
 				EntryPoint = M_POP;
-				ForthStringToC( gScratch, (char *) M_POP );
+				ForthStringToC( gScratch, (char *) M_POP, sizeof(gScratch) );
 				TOS =  ffSaveForth( gScratch, EntryPoint, NameSize, CodeSize );
 			}
 			endcase;