diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index a52cc5f3d8c5e82ee639f07775aa997841ceee8d..173f5b1b60874fda1b28b00cd1c5a87c9c45df70 100644
--- a/assembly/assemfile.lisp
+++ b/assembly/assemfile.lisp
@@ -7,13 +7,15 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.22 1990/11/01 01:16:13 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.23 1990/11/03 17:21:34 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
 ;;;
 (in-package "C")
 
+(export '(define-assembly-routine))
+
 
 (defvar *do-assembly* nil
   "If non-NIL, emit assembly code.  If NIL, emit VOP templates.")