diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs
index 2c5214862..7b5bbb4df 100644
--- a/src/Foundation/Navigation.hs
+++ b/src/Foundation/Navigation.hs
@@ -2739,6 +2739,32 @@ pageActions TopWorkflowWorkflowArchiveR = return
     , navChildren = []
     }
   ]
+pageActions (SchoolR ssh (SchoolWorkflowInstanceR swiName SWIWorkflowsR)) = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuWorkflowWorkflowArchive
+      , navRoute       = SchoolR ssh $ SchoolWorkflowInstanceR swiName SWIWorkflowsArchiveR
+      , navAccess'     = NavAccessTrue
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  ]
+pageActions (SchoolR ssh (SchoolWorkflowInstanceR swiName SWIWorkflowsArchiveR)) = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuWorkflowWorkflowList
+      , navRoute       = SchoolR ssh $ SchoolWorkflowInstanceR swiName SWIWorkflowsR
+      , navAccess'     = NavAccessTrue
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  ]
 pageActions _ = return []
 
 submissionList :: ( MonadIO m