diff --git a/racket/src/racket/src/unwind/libunwind.c b/racket/src/racket/src/unwind/libunwind.c
index 3a84c083a7..fd9f6cd9d7 100644
--- a/racket/src/racket/src/unwind/libunwind.c
+++ b/racket/src/racket/src/unwind/libunwind.c
@@ -1774,7 +1774,7 @@ apply_reg_state (struct dwarf_cursor *c, struct dwarf_reg_state *rs)
 
   if (c->ip == prev_ip && c->cfa == prev_cfa)
     {
-      dprintf ("%s: ip and cfa unchanged; stopping here (ip=0x%lx)\n",
+      Dprintf ("%s: ip and cfa unchanged; stopping here (ip=0x%lx)\n",
 	       __FUNCTION__, (long) c->ip);
       return -UNW_EBADFRAME;
     }
@@ -1839,7 +1839,7 @@ dwarf_find_save_locs (struct dwarf_cursor *c)
       memcpy(rs, rs1, offsetof(struct dwarf_reg_state, ip));
       if (!rs)
         {
-          dprintf ("%s: failed to create unwind rs\n", __FUNCTION__);
+          Dprintf ("%s: failed to create unwind rs\n", __FUNCTION__);
           ret = -UNW_EUNSPEC;
 	  goto out;
         }
diff --git a/racket/src/racket/src/unwind/libunwind_i.h b/racket/src/racket/src/unwind/libunwind_i.h
index d7c7fe37ba..56d88b449f 100644
--- a/racket/src/racket/src/unwind/libunwind_i.h
+++ b/racket/src/racket/src/unwind/libunwind_i.h
@@ -212,14 +212,14 @@ do {									\
       fprintf (stderr, format);						\
     }									\
 } while (0)
-# define dprintf(format...) 	    fprintf (stderr, format)
+# define Dprintf(format...) 	    fprintf (stderr, format)
 # ifdef __GNUC__
 #  undef inline
 #  define inline	UNUSED
 # endif
 #else
 # define Debug(level,format...)
-# define dprintf(format...)
+# define Dprintf(format...)
 #endif
 
 static ALWAYS_INLINE int