diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp
index 961dacbb02d1e8aedaa3b32454c662c19aaefc63..6b7c8816ffc9052d9dd93ac2d2f3cf9e7cbabba0 100644
--- a/src/code/x86-vm.lisp
+++ b/src/code/x86-vm.lisp
@@ -26,10 +26,12 @@
 
 (intl:textdomain "cmucl-x86-vm")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
 	  extern-alien-name sanctify-for-execution))
+)
 
 #+complex-fp-vops
 (sys:register-lisp-feature :complex-fp-vops)