diff --git a/src/CHANGELOG b/src/CHANGELOG
index 9eec9aca2..c7ce19b2d 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -35,6 +35,8 @@ ECL 0.9h
  - When a DEFMETHOD form had an incongruent lambda list, an internal error
    prevented ECL from writing the proper error message.
 
+ - SUBTYPEP formerly broken when handling (EQL #C(...))
+
 * Design:
 
  - Simplified the structure of the frame stack, removing redundant fields.
diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp
index fd11cf322..63fa0f305 100644
--- a/src/lsp/predlib.lsp
+++ b/src/lsp/predlib.lsp
@@ -642,7 +642,7 @@ if not possible."
 	;; We convert number into intervals, so that (AND INTEGER (NOT
 	;; (EQL 10))) is detected as a subtype of (OR (INTEGER * 9)
 	;; (INTEGER 11 *)).
-	(and (numberp object)
+	(and (realp object)
 	     (let* ((base-type (if (integerp object) 'INTEGER (type-of object)))
 		    (type (list base-type object object)))
 	       (or (find-registered-tag type)