diff --git a/scaling-functions.Rmd b/scaling-functions.Rmd
index 2f522d3..5798d86 100644
--- a/scaling-functions.Rmd
+++ b/scaling-functions.Rmd
@@ -283,10 +283,10 @@ switch_page <- function(i, session) {
 }
 
 server <- function(input, output, session) {
-  observeEvent(input$page_12, switch_page(2))
-  observeEvent(input$page_21, switch_page(1))
-  observeEvent(input$page_23, switch_page(3))
-  observeEvent(input$page_32, switch_page(2))
+  observeEvent(input$page_12, switch_page(2, session))
+  observeEvent(input$page_21, switch_page(1, session))
+  observeEvent(input$page_23, switch_page(3, session))
+  observeEvent(input$page_32, switch_page(2, session))
 }
 ```