diff --git a/contrib/tcl/unix/tclUnixInit.c b/contrib/tcl/unix/tclUnixInit.c
index 91d866f0b7f9..b6ef5943a641 100644
--- a/contrib/tcl/unix/tclUnixInit.c
+++ b/contrib/tcl/unix/tclUnixInit.c
@@ -213,7 +213,7 @@ TclPlatformInit(interp)
 	(void) signal(SIGPIPE, SIG_IGN);
 #endif /* SIGPIPE */
 
-#ifdef __FreeBSD__
+#if defined(__FreeBSD__) && defined(i386)
 	fpsetround(FP_RN);
 	fpsetmask(0L);
 #endif