diff --git a/ansi-tests/stream-element-type.lsp b/ansi-tests/stream-element-type.lsp
index e595ecea8ae21a10e830b320fa743aa5b8c4f04f..71bfa864684b035c6f7a5d8890cd32a383983cdc 100644
--- a/ansi-tests/stream-element-type.lsp
+++ b/ansi-tests/stream-element-type.lsp
@@ -73,6 +73,21 @@
 	  (close s)))))
   nil)
 
+(deftest stream-element-type.6
+  :notes (:assume-no-simple-streams)
+  (let ((pn "foo.txt"))
+    (delete-all-versions pn)
+    (let ((s (open pn :direction :output
+		   :element-type :default)))
+      (let ((etype (stream-element-type s)))
+	(unwind-protect
+	    (multiple-value-bind (sub1 good1) (subtypep* etype 'integer)
+	      (multiple-value-bind (sub2 good2) (subtypep* etype 'character)
+		(or (not good1)
+		    (not good2)
+		    sub1 sub2)))
+	  (close s)))))
+  t)
 
 (deftest stream-element-type.error.1
   (signals-error (stream-element-type) program-error)