diff --git a/ansi-tests/make-broadcast-stream.lsp b/ansi-tests/make-broadcast-stream.lsp
index 663b1292859b3c9c18c73afae8e09ffbc901a11d..73767ead622bd485fd3e848e96b68ea7f27e81e6 100644
--- a/ansi-tests/make-broadcast-stream.lsp
+++ b/ansi-tests/make-broadcast-stream.lsp
@@ -10,10 +10,10 @@
     (assert (typep s 'stream))
     (assert (typep s 'broadcast-stream))
     (assert (output-stream-p s))
-    (assert (not (input-stream-p s)))
+    ;; (assert (not (input-stream-p s)))
     (assert (open-stream-p s))
     (assert (streamp s))
-    (assert (stream-element-type s))
+    (assert (eq (stream-element-type s) t))
     (values
      (notnot (typep s 'stream))
      (notnot (typep s 'broadcast-stream))
@@ -29,10 +29,11 @@
       (assert (typep s 'stream))
       (assert (typep s 'broadcast-stream))
       (assert (output-stream-p s))
-      (assert (not (input-stream-p s)))
+      ;; (assert (not (input-stream-p s)))
       (assert (open-stream-p s))
       (assert (streamp s))
-      (assert (stream-element-type s))
+      (assert (eql (stream-element-type s)
+		   (stream-element-type s1)))
       (write-char #\x s)))
   "x")
 
@@ -43,10 +44,11 @@
       (assert (typep s 'stream))
       (assert (typep s 'broadcast-stream))
       (assert (output-stream-p s))
-      (assert (not (input-stream-p s)))
+      ;; (assert (not (input-stream-p s)))
       (assert (open-stream-p s))
       (assert (streamp s))
-      (assert (stream-element-type s))
+      (assert (eql (stream-element-type s)
+		   (stream-element-type s2)))
       (format s "This is a test"))
     (values
      (get-output-stream-string s1)
@@ -54,6 +56,28 @@
   "This is a test"
   "This is a test")
 
+(deftest make-broadcast-stream.4
+  (fresh-line (make-broadcast-stream))
+  nil)
+
+(deftest make-broadcast-stream.5
+  (file-length (make-broadcast-stream))
+  0)
+
+(deftest make-broadcast-stream.6
+  (file-position (make-broadcast-stream))
+  0)
+
+(deftest make-broadcast-stream.7
+  (file-string-length (make-broadcast-stream) "antidisestablishmentarianism")
+  1)
+
+(deftest make-broadcast-stream.8
+  (stream-external-format (make-broadcast-stream))
+  :default)
+
+
+
 ;;; FIXME
 ;;; Add tests for: close,
 ;;;  peek-char, read-char-no-hang, terpri, fresh-line, unread-char,