diff --git a/lisp/gc.c b/lisp/gc.c
index 07d3210a72a91539aa56dea42e6b03d56396eb22..88a0fecf90bfb014f5909baf185b77a2f4a03b5d 100644
--- a/lisp/gc.c
+++ b/lisp/gc.c
@@ -1,7 +1,7 @@
 /*
  * Stop and Copy GC based on Cheney's algorithm.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.2 1992/09/08 20:17:52 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.3 1992/12/05 22:36:17 wlott Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -1675,11 +1675,13 @@ void gc_init(void)
 	scavtab[type_FuncallableInstanceHeader] = scav_closure_header;
 	scavtab[type_ByteCodeFunction] = scav_closure_header;
 	scavtab[type_ByteCodeClosure] = scav_closure_header;
+	scavtab[type_DylanFunctionHeader] = scav_closure_header;
 #else
 	scavtab[type_ClosureHeader] = scav_boxed;
 	scavtab[type_FuncallableInstanceHeader] = scav_boxed;
 	scavtab[type_ByteCodeFunction] = scav_boxed;
 	scavtab[type_ByteCodeClosure] = scav_boxed;
+	scavtab[type_DylanFunctionHeader] = scav_boxed;
 #endif
 	scavtab[type_ValueCellHeader] = scav_boxed;
         scavtab[type_SymbolHeader] = scav_boxed;
diff --git a/lisp/purify.c b/lisp/purify.c
index c4cf8f584aa13a664aaa0cd07baad1e35d192ecc..ee229ee265dbaeefa359cdc2021f015b25211a74 100644
--- a/lisp/purify.c
+++ b/lisp/purify.c
@@ -1,6 +1,6 @@
 /* Purify. */
 
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.2 1992/08/20 02:43:37 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.3 1992/12/05 22:36:32 wlott Exp $ */
 
 #include <stdio.h>
 #include <sys/types.h>
@@ -604,6 +604,7 @@ static lispobj *pscav(lispobj *addr, int nwords, boolean constant)
 	      case type_FuncallableInstanceHeader:
 	      case type_ByteCodeFunction:
 	      case type_ByteCodeClosure:
+	      case type_DylanFunctionHeader:
 		count = pscav_closure_header((struct closure *)addr);
 		break;
 #endif