diff --git a/demo/sitetools/core.cljs b/demo/sitetools/core.cljs
index 9f2e515..30ca00b 100644
--- a/demo/sitetools/core.cljs
+++ b/demo/sitetools/core.cljs
@@ -90,8 +90,8 @@
                     (History.)))
         (evt/listen hevt/NAVIGATE #(dispatch [:set-page (.-token %)]))
         (.setEnabled true))
-      (when (and page (not html5) (empty? (.getToken history)))
-        (dispatch [:set-page page])))))
+      (when (and page (not html5) (-> history .getToken empty?))
+        (.setToken history page)))))
 
 (defn to-relative [f]
   (string/replace f #"^/" ""))