diff --git a/test/script-support.lisp b/test/script-support.lisp
index fd8fcf7bcd1b3105845ea34bebaed7db33a1237f..357bbae17939616108384d965d15f7ed5566671b 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -443,9 +443,9 @@ is bound, write a message and exit on an error.  If
              (leave-test "Your Lisp implementation does not provide ASDF. Skipping test.~%" 0)))
         (t
          (format t "Loading old asdf ~A via ~A~%" tag old-method)
-         (funcall old-method tag))))
-    (setf (asymval :*asdf-verbose*) t)
-    (setf (asymval :*verbose-out*) *standard-output*)
+         (funcall old-method tag)))
+      (setf (asymval :*asdf-verbose*) t)
+      (setf (asymval :*verbose-out*) *standard-output*))
     (format t "Now loading new asdf via method ~A~%" new-method)
     (funcall new-method)
     (format t "Testing it~%")