diff options
| -rw-r--r-- | src/scm/webid-oidc/hello-world.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/hello-world.scm b/src/scm/webid-oidc/hello-world.scm index 45e0657..0451ee9 100644 --- a/src/scm/webid-oidc/hello-world.scm +++ b/src/scm/webid-oidc/hello-world.scm @@ -151,7 +151,7 @@ Options: (source . ,means-string))) (with-output-to-string (lambda () - (sxml->xml (hello-page agent))))) + (sxml->xml (hello-page (string->uri agent)))))) (values (build-response #:code 401 #:reason-phrase (W_ "reason-phrase|Unauthorized") |