diff --git a/ansi-tests/file-length.lsp b/ansi-tests/file-length.lsp
index 1fab2b7dc5d958e644ec3e53de002fa55b8ac476..7acfbb7fde3557e872151d4bc228a76e7668b2ba 100644
--- a/ansi-tests/file-length.lsp
+++ b/ansi-tests/file-length.lsp
@@ -62,12 +62,10 @@
   t)
 
 (deftest file-length.error.8
-  (signals-error
-   (with-open-file
-     (os "tmp.txt" :direction :output :if-exists :supersede)
-     (let ((s (make-broadcast-stream os)))
-       (unwind-protect (file-length s) (close s))))
-   type-error)
+  (with-open-file
+   (os "tmp.txt" :direction :output :if-exists :supersede)
+   (let ((s (make-broadcast-stream os)))
+     (eqlt (file-length s) (file-length os))))
   t)
 
 (deftest file-length.error.9