diff --git a/lisp/print.c b/lisp/print.c
index 26104c5031870c960e63622135b1faeb54e19b9a..339c808ad2345c5d9e0651dbc5c4cedf64166927 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.8 1998/03/21 08:15:00 dtc Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.9 1998/06/03 02:24:11 dtc Exp $ */
 #include <stdio.h>
 
 #include "print.h"
@@ -387,6 +387,7 @@ static char *complex_slots[] = {"real: ", "imag: ", NULL};
 static char *code_slots[] = {"words: ", "entry: ", "debug: ", NULL};
 static char *fn_slots[] = {"self: ", "next: ", "name: ", "arglist: ", "type: ", NULL};
 static char *closure_slots[] = {"fn: ", NULL};
+static char *funcallable_instance_slots[] = {"fn: ", "lexenv: ", "layout: ", NULL};
 static char *weak_pointer_slots[] = {"value: ", NULL};
 static char *fdefn_slots[] = {"name: ", "function: ", "raw_addr: ", NULL};
 static char *value_cell_slots[] = {"value: ", NULL};
@@ -571,6 +572,10 @@ static void print_otherptr(lispobj obj)
                 print_slots(closure_slots, count, ptr);
                 break;
 
+            case type_FuncallableInstanceHeader:
+                print_slots(funcallable_instance_slots, count, ptr);
+                break;
+
             case type_ValueCellHeader:
 		print_slots(value_cell_slots, 1, ptr);
                 break;