diff --git a/compiler/x86/c-call.lisp b/compiler/x86/c-call.lisp
index 59bd18cd9e74655baeb76c09907d5f5b3e03483b..68ad13f984688071b8356d1ea743ae02af108888 100644
--- a/compiler/x86/c-call.lisp
+++ b/compiler/x86/c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/c-call.lisp,v 1.5 1997/11/04 09:10:59 dtc Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/c-call.lisp,v 1.6 1997/11/25 15:29:12 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -160,10 +160,6 @@
 	   (move eax-tn function)
 	   (inst call (make-fixup (extern-alien-name "call_into_c") :foreign)))
 	  (t
-	   (inst mov (make-ea :dword :disp (make-fixup
-					    (extern-alien-name
-					     "foreign_function_call_active")
-					    :foreign))  1)
 	   ;; Setup the NPX for C; all the FP registers need to be
 	   ;; empty; pop them all.
 	   (inst fstp fr0-tn)
@@ -193,11 +189,7 @@
 	       ;; The return result is in fr0.
 	       (inst fxch fr7-tn) ; move the result back to fr0
 	       (inst fldz)) ; insure no regs are empty
-	   
-	   (inst mov (make-ea :dword :disp (make-fixup
-					    (extern-alien-name
-					     "foreign_function_call_active")
-					    :foreign))  0)))))
+	   ))))
 
 (define-vop (alloc-number-stack-space)
   (:info amount)