diff --git a/code/old-loop.lisp b/code/old-loop.lisp
index 44531dd4d70abbc51496470e8765e6d4cfac88e5..eab20cccea142324f3226e2dcaa97049a840cc6d 100644
--- a/code/old-loop.lisp
+++ b/code/old-loop.lisp
@@ -7,14 +7,14 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/old-loop.lisp,v 1.4 1990/11/25 08:09:00 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/old-loop.lisp,v 1.5 1990/11/25 08:15:31 wlott Exp $
 ;;;
 ;;; Loop facility, written by William Lott.
 ;;; 
 (in-package "LOOP")
 
 (in-package "LISP")
-(export 'loop)
+(export '(loop loop-finish))
 
 (in-package "LOOP")