diff --git a/ansi-tests/elt.lsp b/ansi-tests/elt.lsp
index 316ee4eebb777cc25f03f935efff48ceeeabc582..c9f1df76e44621e18ba281019bf64e5c43ed04a9 100644
--- a/ansi-tests/elt.lsp
+++ b/ansi-tests/elt.lsp
@@ -441,3 +441,17 @@
 (deftest elt.error.3
   (signals-error (elt nil 0 nil) program-error)
   t)
+
+(deftest elt.error.4
+  (do-special-integer-vectors
+   (v #(1 1 0 1 0 1) nil)
+   (assert (eql t (eval `(signals-error (elt ,v -1) type-error))))
+   (assert (eql t (eval `(signals-error (elt ,v 6) type-error)))))
+  nil)
+
+(deftest elt.error.5
+  (do-special-strings
+   (s "ABCDEFGH" nil)
+   (assert (eql t (eval `(signals-error (elt ,s -1) type-error))))
+   (assert (eql t (eval `(signals-error (elt ,s 8) type-error)))))
+  nil)