fix compile error in shell/shell.sml (had to pass an additional parameter: 'Time.now ()')

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