         [
           drop
           [let | ARG [ { ".." NAME "/" BRANCH } concat ] |
-            REPO { "git-log" ARG } git-process popup-process-window ]
+            REPO { "git" "log" ARG } git-process popup-process-window ]
         ]
         <bevel-button>
         1 track-add


! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

:: refresh-git-status ( GIT-STATUS -- GIT-STATUS )

  [let | LINES [ GIT-STATUS repository>> "git-status" git-process stdout>> ] |

    GIT-STATUS
    
      LINES "# Changes to be committed:" git-status-section
        [ "new file:" head? ] filter

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

:: git-remote-branches ( REPO NAME -- seq )
  REPO { "git" "remote" "show" NAME } git-process stdout>>
  "  Tracked remote branches" over index 1 + tail first " " split
  [ empty? not ] filter ;

