diff --git a/clog-system.lisp b/clog-system.lisp
index 6ca4239..1fbc17d 100644
--- a/clog-system.lisp
+++ b/clog-system.lisp
@@ -32,7 +32,7 @@
 			      (gethash "/" *url-to-on-new-window*))))
       (if on-new-window  
 	  (funcall on-new-window body)
-	  (put-br (html-document win) "No route to on-new-window")))))
+	  (put-br (html-document body) "No route to on-new-window")))))
 
 (defun initialize (on-new-window-handler
 		   &key