Index: libguile/threads.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/threads.c,v
retrieving revision 1.69
diff -u -r1.69 threads.c
--- libguile/threads.c	22 Oct 2004 15:13:12 -0000	1.69
+++ libguile/threads.c	2 Nov 2004 20:42:32 -0000
@@ -164,7 +164,7 @@
 {
   scm_thread *t = SCM_THREAD_DATA (exp);
   scm_puts ("#<thread ", port);
-  scm_uintprint (t->thread, 10, port);
+  scm_uintprint ((size_t)t->thread, 10, port);
   scm_puts (" (", port);
   scm_uintprint ((scm_t_bits)t, 16, port);
   scm_puts (")>", port);