diff --git a/code/exports.lisp b/code/exports.lisp
index ad79b68ab8fc21daa6ab5a9bd103f59a22b2b960..8ddc50053bfb2ab42a58116135682dff784fd215 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.64 1990/12/07 22:52:41 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.65 1990/12/12 16:56:45 wlott Exp $
 ;;;
 ;;; All the stuff necessary to export various symbols from various packages.
 ;;;
@@ -292,7 +292,7 @@
 	  double-float-high-bits double-float-low-bits
 	  single-float-p double-float-p base-char-p simple-array-p
 	  %raw-bits %set-raw-bits %sp-set-definition
-	  make-array-header allocate-vector
+	  make-array-header allocate-vector %unary-round
 
 	  ))
 
@@ -693,7 +693,7 @@
 	  define-register-file dump-segment emit-code-vector emit-label
 	  finalize-segment fixup fixup-flavor fixup-name fixup-offset
 	  fixup-p gen-label insert-segment inst label label-id label-position
-	  make-fixup make-segment nuke-segment))
+	  make-fixup make-segment nuke-segment count-instructions))
 
 
 (in-package "EVAL")