diff --git a/ldb/purify.c b/ldb/purify.c
index b118d6d97cd422f898dfac485b9ce9eb5e395d3a..ad3a8fc6e70af336816919a382411cf613182c34 100644
--- a/ldb/purify.c
+++ b/ldb/purify.c
@@ -1,6 +1,6 @@
 /* Purify. */
 
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.9 1990/11/27 17:38:02 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.10 1990/12/01 22:50:38 wlott Exp $ */
 
 
 #include <mach.h>
@@ -37,8 +37,11 @@ static int later_count = 0;
 
 #define NWORDS(x,y) (CEILING((x),(y)) / (y))
 
+#ifdef sparc
+#define RAW_ADDR_OFFSET 0
+#else
 #define RAW_ADDR_OFFSET (6*sizeof(lispobj) - type_FunctionPointer)
-
+#endif
 
 static boolean forwarding_pointer_p(obj)
      lispobj obj;