anchor.diff:              model.Status <- sprintf "Renamed %s to: %s" oldName newName
           with | ex -> model.SetExceptionStatus ex (sprintf "rename %s" oldName)
   
  -    member this.OpenExplorer (model: MainModel) =
  +    member this.OpenExplorer model =
           if model.Path <> fileSys.Root then
               model.SelectedNode.Path |> fileSys.OpenExplorer
               model.Status <- "Opened Windows Explorer to: " + model.Path.Value
   
  -    member this.TogglePathFormat (model: MainModel) =
  +    member this.TogglePathFormat model =
           let newFormat =
               match fileSys.Format with
               | Windows -> Unix
  
positive.code:             model.BackStack <- []
              model.ForwardStack <- []
  
          member this.Dispatcher = function
              | CursorUp -> Sync (fun m -> this.SetCursor (m.Cursor - 1) m)
              | CursorUpHalfPage -> Sync (fun m -> this.SetCursor (m.Cursor - m.HalfPageScroll) m)
              | CursorDown -> Sync (fun m -> this.SetCursor (m.Cursor + 1) m)
              | CursorDownHalfPage -> Sync (fun m -> this.SetCursor (m.Cursor + m.HalfPageScroll) m)
              | CursorToFirst -> Sync (this.SetCursor 0)
              | CursorToLast -> Sync (fun m -> this.SetCursor (m.Nodes.Length - 1) m)
              | OpenPath p -> Sync (this.OpenPath (Path p) 0)
              | OpenSelected -> Sync this.SelectedPath
              | OpenParent -> Sync this.ParentPath
              | Back -> Sync this.Back
              | Forward -> Sync this.Forward
              | Refresh -> Sync (fun m -> this.OpenPath m.Path m.Cursor m)
              | StartInput inputMode -> Sync (this.StartInput inputMode)
              | ExecuteCommand -> Sync this.ExecuteCommand
              | CommandCharTyped c -> Sync (this.CommandCharTyped c)
              | FindNext -> Sync this.FindNext
              | SearchNext -> Sync (this.SearchNext false)
              | SearchPrevious -> Sync (this.SearchNext true)
              | TogglePathFormat -> Sync this.TogglePathFormat
              | OpenSettings -> Sync this.OpenSettings
              | OpenExplorer -> Sync this.OpenExplorer
  
      member this.SetCursor index (model: MainModel) =
          model.Cursor <- index |> max 0 |> min (model.Nodes.Length - 1)
  
      member this.MoveCursorToNext predicate reverse (model: MainModel) =
          let indexed = model.Nodes |> List.mapi (fun i n -> (i, n))
          let items =
              if reverse then
  
negative.code:             | Some index -> this.SetCursor index model
              | None -> ()
  
      member this.CreateFile model =
          this.CreateItem fileSys.CreateFile "file" model
  
      member this.CreateFolder model =
          this.CreateItem fileSys.CreateFolder "folder" model
  
      member private this.CreateItem action itemType model =
          let name = model.CommandText
          try
              action model.Path name
  