diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index cdd2a1efdb2..a575b63b78e 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3410,6 +3410,7 @@ tramp-test17-insert-directory
   ;; one file.  So we refrain from testing.
   (skip-unless (not (tramp--test-ange-ftp-p)))

+  (tramp--test-instrument-test-case 6
   (dolist (quoted (if (tramp--test-expensive-test-p) '(nil t) '(nil)))
     (let* ((tmp-name1
             (expand-file-name (tramp--test-make-temp-name nil quoted)))
@@ -3425,20 +3426,24 @@ tramp-test17-insert-directory
 	    (should (file-exists-p tmp-name2))
 	    (with-temp-buffer
 	      (insert-directory tmp-name1 nil)
+	      (message "Hallo 1\n%s" (tramp-get-buffer-string))
 	      (goto-char (point-min))
 	      (should (looking-at-p (rx (literal tmp-name1)))))
 	    (with-temp-buffer
 	      (insert-directory (file-name-as-directory tmp-name1) nil)
+	      (message "Hallo 2\n%s" (tramp-get-buffer-string))
 	      (goto-char (point-min))
 	      (should
                (looking-at-p (rx (literal (file-name-as-directory tmp-name1))))))
 	    (with-temp-buffer
 	      (insert-directory tmp-name1 "-al")
+	      (message "Hallo 3\n%s" (tramp-get-buffer-string))
 	      (goto-char (point-min))
 	      (should
 	       (looking-at-p (rx bol (+ nonl) blank (literal tmp-name1) eol))))
 	    (with-temp-buffer
 	      (insert-directory (file-name-as-directory tmp-name1) "-al")
+	      (message "Hallo 4\n%s" (tramp-get-buffer-string))
 	      (goto-char (point-min))
 	      (should
 	       (looking-at-p
@@ -3446,6 +3451,7 @@ tramp-test17-insert-directory
 	    (with-temp-buffer
 	      (insert-directory
 	       (file-name-as-directory tmp-name1) "-al" nil 'full-directory-p)
+	      (message "Hallo 5\n%s" (tramp-get-buffer-string))
 	      (goto-char (point-min))
 	      (should
 	       (looking-at-p
@@ -3481,7 +3487,7 @@ tramp-test17-insert-directory
 	       :type 'file-missing)))

 	;; Cleanup.
-	(ignore-errors (delete-directory tmp-name1 'recursive))))))
+	(ignore-errors (delete-directory tmp-name1 'recursive)))))))

 (ert-deftest tramp-test17-dired-with-wildcards ()
   "Check `dired' with wildcards."