So this appears to be close to working one:

```
            (replace 'install
              (lambda args
                (for-each (lambda (solution)
                            (with-directory-excursion solution
                              (apply (assoc-ref copy:%standard-phases 
'install)
                                     #:install-plan
                                     '(("src" "include/qtsolutions"
                                        #:include-regexp ("\\.h$")))
                                     args)))
                          (list
                           "qtlockedfile"
                           "qtpropertybrowser"
                           "qtservice"
                           "qtsingleapplication"
                           "qtsoap"))))
```

I now get "In procedure copy-file: Permission denied".

Regards,
RG.