diff --git a/lisp/alloc.c b/lisp/alloc.c
index 51ad6e32e724ea58f3204366b622a7c09f554eae..9ec65ed2252d8d48548b3906a01ca2be51d7a03e 100644
--- a/lisp/alloc.c
+++ b/lisp/alloc.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.8 2004/07/08 17:49:04 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.9 2005/04/16 02:05:06 rtoy Exp $ */
 
 #include <string.h>
 
@@ -123,11 +123,11 @@ lispobj alloc_string(char *str)
 lispobj alloc_sap(void *ptr)
 {
 #ifndef alpha
-    struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 1);
+    struct sap *sap_ptr = (struct sap *)alloc_unboxed(type_Sap, 1);
 #else
-    struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 3);
+    struct sap *sap_ptr = (struct sap *)alloc_unboxed(type_Sap, 3);
 #endif
-    sap->pointer = ptr;
+    sap_ptr->pointer = ptr;
 
-    return (lispobj) sap | type_OtherPointer;
+    return (lispobj) sap_ptr | type_OtherPointer;
 }