Remove pk statements

1 files changed, 2 insertions, 2 deletions

diff --git a/web/webserver.scm b/web/webserver.scm
index 6be0890..17f5716 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -66,7 +66,7 @@
   (list (append extra-headers
                 '((content-type . (text/html))))
         (lambda (port)
-          (sxml->html (view-doc (pk path) (pk page) rec) port))))
+          (sxml->html (view-doc path page rec) port))))
 
 (define (render-json json)
   (list '((content-type . (application/json)))
@@ -117,7 +117,7 @@
           (request-method request)
           (uri-path (request-uri request)))
   (apply values
-         ((controller (pk request) body)
+         ((controller request body)
           (cons (request-method request)
                 (request-path-components request)))))