diff --git a/guix/build/qt-build-system.scm b/guix/build/qt-build-system.scm
index 46fcad7848..be2b808901 100644
--- a/guix/build/qt-build-system.scm
+++ b/guix/build/qt-build-system.scm
@@ -90,8 +90,8 @@ (define handle-output
       (unless (member output qt-wrap-excluded-outputs)
         (let ((bin-list     (find-files-to-wrap directory))
               (vars-to-wrap (variables-for-wrapping
-                             (append (list output)
-                                         input-directories))))
+                             (append (list directory)
+                                     input-directories))))
           (when (not (null? vars-to-wrap))
             (for-each (cut apply wrap-program <> vars-to-wrap)
                       bin-list)))))))