diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index cdd2a1efdb2..560a52be946 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3425,20 +3425,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 +3450,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