diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 59f1bf375..36be70e2f 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,5 +1,9 @@
 2003-05-22  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
+	* num2integral.i.c (NUM2INTEGRAL): Avoid warning about conditional
+	always being false by inserting preprocessor conditional.  (Thanks
+	to Bruce Korb.)
+
 	* __scm.h (SCM_STACK_PTR): New macro. (Cast argument through
 	(void *) in order to avoid an aliasing warning; thanks to Bruce
 	Korb.)
diff --git a/libguile/num2integral.i.c b/libguile/num2integral.i.c
index da23747ca..31dd81fed 100644
--- a/libguile/num2integral.i.c
+++ b/libguile/num2integral.i.c
@@ -59,6 +59,7 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
         return (ITYPE) n;
       else
         {
+#if SIZEOF_SCM_T_BITS > SIZEOF_ITYPE
           /* an inum can be out of range, so check */
           if (UNSIGNED) /* n is known to be >= 0 */
             {
@@ -67,6 +68,7 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
             }
           else if (((ITYPE) n) != n)
             scm_out_of_range (s_caller, num);
+#endif
           return (ITYPE) n;
         }
     }