diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index c46a95095..f692299bf 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -425,7 +425,9 @@ handleSheetEdit tid csh msId template dbAction = do
             insert_ $ SheetEdit aid actTime sid
             addMessageI "info" $ MsgSheetEditOk tid csh sfName
             return True
-      when saveOkay $ redirect $ CSheetR tid csh sfName SShowR -- redirect must happen outside of runDB
+      when saveOkay $ redirect $ case msId of
+        Just _  -> CSheetR tid csh sfName SShowR -- redirect must happen outside of runDB
+        Nothing -> CSheetR tid csh sfName SCorrR
     (FormFailure msgs) -> forM_ msgs $ (addMessage "warning") . toHtml
     _ -> return ()
   let pageTitle = maybe (MsgSheetTitleNew tid csh)