diff --git a/ansi-tests/types-and-class.lsp b/ansi-tests/types-and-class.lsp
index 1af303963c951381ea8f299f22d9acc20a61dccb..42220357fc33eb5a927dea8934e81ae6bae877d6 100644
--- a/ansi-tests/types-and-class.lsp
+++ b/ansi-tests/types-and-class.lsp
@@ -233,6 +233,19 @@
   (notnot-mv (macro-function 'deftype))
   t)
 
+;;; TYPE-ERROR accessors
+
+(deftest type-error-datum.1
+  (let ((c (make-condition 'type-error :datum 'a :expected-type 'integer)))
+    (type-error-datum c))
+  a)
+
+(deftest type-error-expected-type.1
+  (let ((c (make-condition 'type-error
+			   :datum 'a :expected-type 'integer)))
+    (type-error-expected-type c))
+  integer)
+
 ;;; Error checking of type-related functions
 
 (deftest type-error-datum.error.1