diff --git a/tests/gray-streams.lisp b/tests/gray-streams.lisp
index 6308882acea9d772294a55a082b201b69adf8174..7de3c1bf8be5d0741f12f6451973debe3a5f6525 100644
--- a/tests/gray-streams.lisp
+++ b/tests/gray-streams.lisp
@@ -24,16 +24,16 @@
   ;; Create a Gray stream and make sure that clear-output works.
   (assert-eql
    0
-   (unwind-protect
-	(let ((s (open *test-file*
-		       :direction :output
-		       :if-exists :supersede
-		       :class 'lisp::character-output-stream)))
-	  (write-char #\a s)
-	  (clear-output s)
-	  (close s)
-	  (setf s (open *test-file*))
-	  (file-length s))
-     (delete-file *test-file*))))
-		      
-    
\ No newline at end of file
+   (let ((s (open *test-file*
+		  :direction :output
+		  :if-exists :supersede
+		  :class 'lisp::character-output-stream)))
+     (unwind-protect
+	  (progn
+	    (write-char #\a s)
+	    (clear-output s)
+	    (close s)
+	    (setf s (open *test-file*))
+	    (file-length s))
+       (close s)
+       (delete-file *test-file*)))))