diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp
index 21b0aeb3b..e450a939d 100644
--- a/src/lsp/predlib.lsp
+++ b/src/lsp/predlib.lsp
@@ -1518,10 +1518,9 @@ if not possible."
                                  (RATIO ,@(rest type)))
                             env))
            (COMPLEX
-            (or (find-built-in-tag type env)
-                (canonical-complex-type (if (endp (rest type))
-                                            'real
-                                            (second type)))))
+            (canonical-complex-type (if (endp (rest type))
+                                        'real
+                                        (second type))))
            (CONS (apply #'register-cons-type env (rest type)))
            (ARRAY (logior (register-array-type `(COMPLEX-ARRAY ,@(rest type)) env)
                           (register-array-type `(SIMPLE-ARRAY ,@(rest type)) env)))