diff --git a/lisp/x86-assem.S b/lisp/x86-assem.S
index c11149149c25b65bd99d8c894efbf31a0920ad03..36fef2a17d04a4ee1f8199c68fb2ecef219e0bf1 100644
--- a/lisp/x86-assem.S
+++ b/lisp/x86-assem.S
@@ -1,6 +1,6 @@
 ### x86-assem.S -*- Mode: Asm; -*-
 /**
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-assem.S,v 1.17 1999/10/06 14:32:36 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-assem.S,v 1.18 2000/05/06 16:55:53 dtc Exp $
  *
  * Authors:	Paul F. Werkowski <pw@snoopy.mv.com>
  *		Douglas T. Crosher
@@ -143,7 +143,11 @@ GNAME(call_into_lisp):
 
 	movl	(%esp),%eax	# Load NPX control word
 	andl	$0xfffff3ff,%eax	# Set rounding mode to nearest
+#ifdef type_LongFloat
 	orl	$0x00000300,%eax	# Set precision to 64 bits
+#else
+	orl	$0x00000200,%eax	# Set precision to 53 bits
+#endif	
 	pushl	%eax
 	fldcw	(%esp)		# Recover modes
 	popl	%eax