Gate Qt dired trace logging

ober

cc9914d46ef45021983b423e437edff5ff590285

diff --git a/src/jerboa-emacs/qt/commands-edit.ss b/src/jerboa-emacs/qt/commands-edit.ss
index 219e231..dd7a00d 100644
--- a/src/jerboa-emacs/qt/commands-edit.ss
+++ b/src/jerboa-emacs/qt/commands-edit.ss
@@ -974,10 +974,7 @@
 ;;;============================================================================
 
 (def (qt-dired-trace msg)
-  (display "TRACE dired-open: " (current-error-port))
-  (display msg (current-error-port))
-  (display "\n" (current-error-port))
-  (flush-output-port (current-error-port)))
+  (verbose-log! "dired-open: " msg))
 
 (def (dired-open-directory! app dir-path)
   "Open a directory listing in a new dired buffer."