diff --git a/libguile/unif.c b/libguile/unif.c
index ce0cf2706..761fbc101 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -146,7 +146,7 @@ scm_uniform_element_size (SCM obj)
 static int
 singp (SCM obj)
 {
-  if (!SCM_SLOPPY_REALP (obj))
+  if (!SCM_REALP (obj))
     return 0;
   else
     {