diff --git a/modules/webapp/src/main/elm/Page/Home/Data.elm b/modules/webapp/src/main/elm/Page/Home/Data.elm
index 175fa501..c9f2b3e9 100644
--- a/modules/webapp/src/main/elm/Page/Home/Data.elm
+++ b/modules/webapp/src/main/elm/Page/Home/Data.elm
@@ -97,6 +97,7 @@ type Msg
     | KeyUpMsg (Maybe KeyCode)
     | SetContentOnly String
     | ScrollResult (Result Dom.Error ())
+    | ClearItemDetailId
 
 
 type SearchType
diff --git a/modules/webapp/src/main/elm/Page/Home/Update.elm b/modules/webapp/src/main/elm/Page/Home/Update.elm
index f36423ce..d9b72133 100644
--- a/modules/webapp/src/main/elm/Page/Home/Update.elm
+++ b/modules/webapp/src/main/elm/Page/Home/Update.elm
@@ -8,6 +8,7 @@ import Data.Flags exposing (Flags)
 import Data.UiSettings exposing (UiSettings)
 import Page exposing (Page(..))
 import Page.Home.Data exposing (..)
+import Process
 import Scroll
 import Task
 import Throttle
@@ -82,13 +83,13 @@ update mId key flags settings msg model =
                         m
                         model.itemListModel
 
-                cmd =
+                ( cmd, id ) =
                     case result.selected of
                         Just item ->
-                            Page.set key (ItemDetailPage item.id)
+                            ( Page.set key (ItemDetailPage item.id), Just item.id )
 
                         Nothing ->
-                            Cmd.none
+                            ( Cmd.none, Nothing )
             in
             withSub
                 ( { model
@@ -222,8 +223,15 @@ update mId key flags settings msg model =
         KeyUpMsg _ ->
             withSub ( model, Cmd.none )
 
-        ScrollResult res ->
-            withSub ( model, Cmd.none )
+        ScrollResult _ ->
+            let
+                cmd =
+                    Process.sleep 350 |> Task.perform (always ClearItemDetailId)
+            in
+            withSub ( model, cmd )
+
+        ClearItemDetailId ->
+            withSub ( model, Page.set key (HomePage Nothing) )