diff --git a/ansi-tests/packages-04.lsp b/ansi-tests/packages-04.lsp
index f9dabec14ebf471500b9eddb73252409a0c708d1..63ab672faf7e791c599d0d9b3ed85f1b7e10ad17 100644
--- a/ansi-tests/packages-04.lsp
+++ b/ansi-tests/packages-04.lsp
@@ -48,6 +48,20 @@
 	       (progn (delete-package p) t))))))
   t)
 
+(deftest intern.3
+  (let ((cl-user-package (find-package "CL-USER")))
+    (eqt (intern "" cl-user-package)
+	 (intern (make-array 0 :element-type nil))))
+  t)
+
+(deftest intern.4
+  (let ((cl-user-package (find-package "CL-USER")))
+    (eqt (intern (make-array 5 :element-type 'character
+			     :initial-contents "XYZZY") cl-user-package)
+	 (intern (make-array 5 :element-type 'base-char
+			     :initial-contents "XYZZY") cl-user-package)))
+  t)
+
 (deftest intern.error.1
   (classify-error (intern))
   program-error)