diff --git a/libguile/debug.c b/libguile/debug.c
index 49cce42c7..2083e82fd 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -558,7 +558,7 @@ static int
 debugobj_print (SCM obj, SCM port, scm_print_state *pstate SCM_UNUSED)
 {
   scm_puts ("#<debug-object ", port);
-  scm_intprint ((int) SCM_DEBUGOBJ_FRAME (obj), 16, port);
+  scm_intprint ((long) SCM_DEBUGOBJ_FRAME (obj), 16, port);
   scm_putc ('>', port);
   return 1;
 }