diff --git a/ansi-tests/make-broadcast-stream.lsp b/ansi-tests/make-broadcast-stream.lsp
index 73767ead622bd485fd3e848e96b68ea7f27e81e6..eca5ff6a0b9e82fde7b3e7add3a800e4634f7b58 100644
--- a/ansi-tests/make-broadcast-stream.lsp
+++ b/ansi-tests/make-broadcast-stream.lsp
@@ -13,7 +13,7 @@
     ;; (assert (not (input-stream-p s)))
     (assert (open-stream-p s))
     (assert (streamp s))
-    (assert (eq (stream-element-type s) t))
+    ;; (assert (eq (stream-element-type s) t))
     (values
      (notnot (typep s 'stream))
      (notnot (typep s 'broadcast-stream))