diff --git a/source/clog-auth.lisp b/source/clog-auth.lisp
index 10855c3..810890c 100644
--- a/source/clog-auth.lisp
+++ b/source/clog-auth.lisp
@@ -48,7 +48,7 @@ for CLOG")
       (setf token nil))
     (unless token
       (when auth-path
-        (url-assign (window body) auth-path)))
+        (url-assign (location body) auth-path)))
     token))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;