diff --git a/src/cmp/cmptype-arith.lsp b/src/cmp/cmptype-arith.lsp
index 19fac19ae..43218f835 100644
--- a/src/cmp/cmptype-arith.lsp
+++ b/src/cmp/cmptype-arith.lsp
@@ -117,7 +117,7 @@
 (defun valid-type-specifier (type)
   (handler-case
      (if (subtypep type 'T)
-	 (values t (type-filter type))
+	 (values t type)
          (values nil nil))
     (error (c) (values nil nil))))