diff --git a/code/print.lisp b/code/print.lisp
index 45a17b65cdb7d044468f74451b9f4517039f35e0..b4c452d1f27cfd633bb4826c8b5f9a503ce963f6 100644
--- a/code/print.lisp
+++ b/code/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/code/print.lisp,v 1.41 1992/04/07 22:56:55 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.42 1992/04/21 04:24:01 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1746,9 +1746,13 @@
 
 (defun output-function (function stream)
   (print-unreadable-object (function stream :identity t)
-    (case (get-type function)
+    (case (function-subtype function)
       ((#.vm:function-header-type #.vm:closure-function-header-type)
        (output-function-object function stream))
+      (#.vm:byte-code-function-type
+       (write-string "Byte Compiled Function" stream))
+      (#.vm:byte-code-closure-type
+       (write-string "Byte Compiled Closure" stream))
       (#.vm:closure-header-type
        (cond
 	((eval:interpreted-function-p function)
@@ -1757,7 +1761,6 @@
 	 (write-string "Closure Over " stream)
 	 (output-function-object (%primitive c::closure-function function)
 				 stream)))))))
-    
 
 
 ;;;; Catch-all for unknown things.