diff --git a/lisp/print.c b/lisp/print.c
index 0ee2dfc065aa70364cec007a0d3ed4ebdcabde0e..9af86e4276d89267d88ffeacd4841fc6f7be667f 100644
--- a/lisp/print.c
+++ b/lisp/print.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.21 2006/06/30 18:41:32 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.22 2006/07/12 18:42:40 rtoy Exp $ */
 
 #include <stdio.h>
 #include <string.h>
@@ -105,9 +105,9 @@ char *subtype_Names[] = {
     "function header",
     "closure header",
     "funcallable-instance header",
-    "unused function header 1",
-    "unused function header 2",
-    "unused function header 3",
+    "byte code function",
+    "byte code closure",
+/*    "unused function header 3",*/
     "closure function header",
     "return PC header",
     "value cell header",