         [
           drop
           [let | ARG [ { NAME "/" BRANCH } concat ] |
-            REPO { "git-merge" ARG } git-process popup-process-window ]
+            REPO { "git" "merge" 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

  
  "Remotes" <label> reverse-video-theme add-gadget

  REPO { "git" "remote" } git-process stdout>> [ empty? not ] filter

  [| NAME |

