diff --git a/shell/shell.sml b/shell/shell.sml
index 2ca01c5..4905351 100644
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -74,7 +74,8 @@ struct
           val searchList = SearchList.build (buffer, searchString)
           val buffer = LineGap.goToStart buffer
         in
-          AppWith.searchList (app, searchList, buffer, searchString)
+          AppWith.searchList
+            (app, searchList, buffer, searchString, Time.now ())
         end
 
       val () = registerCallbacks window