diff --git a/src/webapp/actions.lisp b/src/webapp/actions.lisp
index ad3abb9..f58720a 100644
--- a/src/webapp/actions.lisp
+++ b/src/webapp/actions.lisp
@@ -123,8 +123,8 @@
   (with-http-params ((.channels. nil :conv channel-string-to-states))
     (channel-respond-body .channels. :always-body t)))
   
-(defun register-action-page ()
-  (defpage-lambda (site-action-page-name (current-site)) 
+(defun register-action-page (&optional (url (site-action-page-name (current-site))))
+  (defpage-lambda url 
       #'action-respond-body :defaulting-lambda-list (.id. .javascript.)))
 
 
diff --git a/src/webapp/channel.lisp b/src/webapp/channel.lisp
index 0377cd8..a136b84 100644
--- a/src/webapp/channel.lisp
+++ b/src/webapp/channel.lisp
@@ -104,8 +104,8 @@
 		    (when original-hangup-handler
 		      (apply original-hangup-handler args)))))))))))
 
-(defun register-channel-page ()
-  (dispatcher-register-path (site-dispatcher (current-site)) (site-channel-page-name (current-site)) #'channel-respond-page))
+(defun register-channel-page (&optional (url (site-action-page-name (current-site))))
+  (dispatcher-register-path url (site-channel-page-name (current-site)) #'channel-respond-page))
 
 (my-defun channel 'object-to-ml ()
   (js-html-script (channel (unquote (force-string (my id))) (unquote (my state)))))