diff --git a/src/guile-api.h b/src/guile-api.h
index f9c37ca..99f7d8f 100644
--- a/src/guile-api.h
+++ b/src/guile-api.h
@@ -38,7 +38,8 @@
 #define SCM_PROCEDUREP(obj) gi_nfalsep (scm_procedure_p (obj))
 #endif
 #ifndef SCM_EXACTP
-#define SCM_EXACTP(obj) gi_nfalsep (scm_exact_p (obj))
+#define SCM_EXACTP(obj) (gi_nfalsep (scm_number_p (obj)) \
+			 && (gi_nfalsep (scm_exact_p (obj))))
 #endif
 #ifndef SCM_POSITIVEP
 #define SCM_POSITIVEP(obj) gi_nfalsep (scm_positive_p (obj))