diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script
index 8c8ab984ff1dd2d48c502ab033a96779ba8d4d32..525716d9d84d22aa916c67e7a27c744b1a3a9433 100644
--- a/test/asdf-pathname-test.script
+++ b/test/asdf-pathname-test.script
@@ -122,8 +122,9 @@
                                           (print-condition-backtrace c))
                                         (return nil))))
                 (with-open-file (stream (component-pathname file)
-                                        :direction :output :if-exists :supersede
+                                        :direction :output :if-exists :rename-and-delete
                                         :if-does-not-exist :error)
+                  ;; SBCL on Windows hates :supersede here
                   (print start-time stream)
                   t)))
       (incf file-failures)
diff --git a/test/test-run-program.script b/test/test-run-program.script
index dccffc6aca2ad7dd4df8f57e7d44dcc0feab712d..9c0aa84c105739433463ed5b9233252ada561c46 100644
--- a/test/test-run-program.script
+++ b/test/test-run-program.script
@@ -5,7 +5,7 @@
 (defun dewindowize (x)
   (block ()
     (setf x (remove (code-char 13) x))
-    #+(and sbcl os-windows) ;; buggy implementations output extra space on Windows. Also old CCL.
+    ;;#+(and sbcl os-windows) ;; buggy implementations output extra space on Windows. Also old CCL.
     (when (eql #\space (last-char x))
       (return (subseq x 0 (1- (length x)))))
     x))