diff --git a/lisp/backtrace.c b/lisp/backtrace.c
index 1f178ea80fbb584395dd65bc228d97b1acc00989..ddb4f74abf88b63c2caa84deb71a8d5d8f0273e2 100644
--- a/lisp/backtrace.c
+++ b/lisp/backtrace.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.12 2004/07/12 23:44:07 pmai Exp $
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.13 2004/08/04 18:33:58 cwang Exp $
  *
  * Simple backtrace facility.  More or less from Rob's lisp version.
  */
@@ -255,7 +255,7 @@ static int
 stack_pointer_p (unsigned long p)
 {
   return (p < CONTROL_STACK_START + CONTROL_STACK_SIZE
-	  && p > (unsigned) &p
+	  && p > (unsigned long) &p
 	  && (p & 3) == 0);
 }
 
@@ -268,7 +268,7 @@ ra_pointer_p (unsigned ra)
 static unsigned
 deref (unsigned long p, int offset)
 {
-  return *((unsigned *) p + offset);
+  return *((unsigned long *) p + offset);
 }
 
 static void
@@ -343,7 +343,7 @@ x86_call_context (unsigned fp, unsigned *ra, unsigned *ocfp)
 {
   unsigned lisp_ocfp, lisp_ra, c_ocfp, c_ra;
   int lisp_valid_p, c_valid_p;
-  
+
   if (!stack_pointer_p (fp))
     return 0;