diff --git a/ansi-tests/make-broadcast-stream.lsp b/ansi-tests/make-broadcast-stream.lsp
index 7eb7a5c30c20d71d0302d50a0e387f3461269c92..663b1292859b3c9c18c73afae8e09ffbc901a11d 100644
--- a/ansi-tests/make-broadcast-stream.lsp
+++ b/ansi-tests/make-broadcast-stream.lsp
@@ -55,7 +55,7 @@
   "This is a test")
 
 ;;; FIXME
-;;; Add tests for: close, stream-element-type,
+;;; Add tests for: close,
 ;;;  peek-char, read-char-no-hang, terpri, fresh-line, unread-char,
 ;;;  read-line, write-line, write-string, read-sequence, write-sequence,
 ;;;  read-byte, write-byte, listen, clear-input, finish-output, force-output,
diff --git a/ansi-tests/make-synonym-stream.lsp b/ansi-tests/make-synonym-stream.lsp
index eb49adb3d6da8dabccb033ea080823d634084c41..7393e4d912dedb07bd24dee25a46173e0fd6a5f6 100644
--- a/ansi-tests/make-synonym-stream.lsp
+++ b/ansi-tests/make-synonym-stream.lsp
@@ -13,6 +13,10 @@
      (assert (typep ss 'stream))
      (assert (typep ss 'synonym-stream))
      (assert (input-stream-p ss))
+     (assert (not (output-stream-p ss)))
+     (assert (open-stream-p ss))
+     (assert (streamp ss))
+     (assert (stream-element-type ss))
      (values
       (read-char *s*)
       (read-char ss)
@@ -30,6 +34,10 @@
       (assert (typep ss 'stream))
       (assert (typep ss 'synonym-stream))
       (assert (input-stream-p ss))
+      (assert (not (output-stream-p ss)))
+      (assert (open-stream-p ss))
+      (assert (streamp ss))
+      (assert (stream-element-type ss))
       (read-char ss)))
    #\z)
 
@@ -41,14 +49,31 @@
      (assert (typep ss 'stream))
      (assert (typep ss 'synonym-stream))
      (assert (output-stream-p ss))
+     (assert (not (input-stream-p ss)))
+     (assert (open-stream-p ss))
+     (assert (streamp ss))
+     (assert (stream-element-type ss))
      (write-char #\a *s*)
      (write-char #\b ss)
      (write-char #\x *s*)
      (write-char #\y ss)))
   "abxy")
 
+(deftest make-synonym-stream.4
+  (let ((ss (make-synonym-stream '*terminal-io*)))
+     (assert (typep ss 'stream))
+     (assert (typep ss 'synonym-stream))
+     (assert (output-stream-p ss))
+     (assert (input-stream-p ss))
+     (assert (open-stream-p ss))
+     (assert (streamp ss))
+     (assert (stream-element-type ss))
+     nil)
+  nil)
+
+
 ;;; FIXME
-;;; Add tests for: open-stream-p, close, stream-element-type, streamp,
+;;; Add tests for: close,
 ;;;  peek-char, read-char-no-hang, terpri, fresh-line, unread-char,
 ;;;  read-line, write-line, write-string, read-sequence, write-sequence,
 ;;;  read-byte, write-byte, listen, clear-input, finish-output, force-output,
diff --git a/ansi-tests/make-two-way-stream.lsp b/ansi-tests/make-two-way-stream.lsp
index f820c1447ee17ab3a0dedd6869e71428e380b40f..bcf8058f604909e81b4783da737c630d155d4665 100644
--- a/ansi-tests/make-two-way-stream.lsp
+++ b/ansi-tests/make-two-way-stream.lsp
@@ -27,7 +27,7 @@
   #\f #\b #\o #\a #\o #\r "bar")
 
 ;;; FIXME
-;;; Add tests for: close, stream-element-type,
+;;; Add tests for: close,
 ;;;  peek-char, read-char-no-hang, terpri, fresh-line, unread-char,
 ;;;  read-line, write-line, write-string, read-sequence, write-sequence,
 ;;;  read-byte, write-byte, listen, clear-input, finish-output, force-output,