diff --git a/ldb/print.c b/ldb/print.c
index 42a15273f502d1ce63372ed7f110e66334853706..af788c9f0f590ac9a406d9d0fcf209be1e8b2af7 100644
--- a/ldb/print.c
+++ b/ldb/print.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.8 1990/03/29 21:22:03 ch Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.9 1990/04/05 00:47:42 wlott Exp $ */
 #include <stdio.h>
 
 #include "ldb.h"
@@ -263,13 +263,13 @@ lispobj obj;
 static void brief_struct(obj)
 lispobj obj;
 {
-	print("Structure mumble mumble.\n");
+	printf("structure");
 }
 
 static void print_struct(obj)
 lispobj obj;
 {
-	print("Structure mumble mumble.\n");
+	printf("Structure mumble mumble.");
 }
 
 static void brief_otherptr(obj)
@@ -445,6 +445,7 @@ lispobj obj;
                 break;
 
             case type_ReturnPcHeader:
+                print_obj("code: ", obj - (count * 4));
                 break;
 
             case type_ClosureHeader: