         "Push"
         [
           drop
-          REPO { "git-push" NAME "master" } git-process popup-process-window 
+          REPO { "git" "push" NAME "master" } git-process popup-process-window 
         ]
         <bevel-button>
         1 track-add

           1 track-add ]
  
        "Fetch"
        [ drop REPO { "git-fetch" NAME } git-process popup-process-window ]
        <bevel-button>
        1 track-add
  


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

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

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

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