diff --git a/compiler/x86/nlx.lisp b/compiler/x86/nlx.lisp
index 8a716e2813b3ca9e44a0e015d54c6582c654b725..bd9266d5feb15e37df8e0c32df7085da452774af 100644
--- a/compiler/x86/nlx.lisp
+++ b/compiler/x86/nlx.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/nlx.lisp,v 1.12 1998/06/16 18:20:44 pw Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.13 1999/12/04 16:06:08 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -152,7 +152,7 @@
     (store-symbol-value block lisp::*current-catch-block*)))
 
 (define-vop (unlink-unwind-protect)
-    (:temporary (:sc unsigned-reg) block)
+  (:temporary (:sc unsigned-reg) block)
   (:policy :fast-safe)
   (:translate %unwind-protect-breakup)
   (:generator 17
diff --git a/compiler/x86/print.lisp b/compiler/x86/print.lisp
index 35a9266d30569427bd3456812ecc41d74a575c03..899a5b5d566bbfc711ec027056086b9d634b14ea 100644
--- a/compiler/x86/print.lisp
+++ b/compiler/x86/print.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/print.lisp,v 1.3 1998/02/19 19:35:03 dtc Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/print.lisp,v 1.4 1999/12/04 16:06:08 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -22,8 +22,7 @@
 (define-vop (print)
   (:args (object :scs (descriptor-reg any-reg)))
   (:temporary (:sc unsigned-reg :offset eax-offset :target result
-		   :from :eval :to (:result 0))
-	      eax)
+		   :from :eval :to :result) eax)
   (:results (result :scs (descriptor-reg)))
   (:save-p t)
   (:generator 100