diff --git a/test/test-symlink-loop.script b/test/test-symlink-loop.script
index 6e12859dadcddc00478323f6cc4c426823ea80ec..fdea26bcd0cc5e908db642310407e6326ab15847 100644
--- a/test/test-symlink-loop.script
+++ b/test/test-symlink-loop.script
@@ -29,6 +29,7 @@
                          (format nil "~a" (namestring (make-sub-pathname :name "loop"
                                                                          :type "asd"
                                                                          :defaults scratch-dir))))
+         (DBG "Testing search for asdf system definitions.")
          (assert-equal (list "loop")
                        (let ((asds nil))
                          (declare (special asds))
@@ -47,10 +48,14 @@
                                                name)))
                                 (push name asds))))
                          asds))
+         (DBG "Resetting source registry.")
          (initialize-source-registry
           `(:source-registry (:tree ,scratch-dir) :ignore-inherited-configuration))
+         (DBG "Looking for the LOOP system")
          (assert (asdf:find-system :loop)))
     ;; clean up
+    (DBG "Cleaning up")
     (uiop:run-program (format nil "rm -r ~a" scratch-dir))))
 
+(DBG "Exiting")
 (exit-lisp 0)