diff --git a/Iceberg-Pharo6.package/MCGitlabRepository.extension/properties.json b/Iceberg-Pharo6.package/MCGitlabRepository.extension/properties.json
index 7565ccc4b6..4189caf72d 100644
--- a/Iceberg-Pharo6.package/MCGitlabRepository.extension/properties.json
+++ b/Iceberg-Pharo6.package/MCGitlabRepository.extension/properties.json
@@ -1,3 +1,3 @@
 {
 	"name" : "MCGitlabRepository"
-}
+}
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubAPI.class/instance/getIssue.project.number..st b/Iceberg-Plugin-GitHub.package/IceGitHubAPI.class/instance/getIssue.project.number..st
new file mode 100644
index 0000000000..4f14769919
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubAPI.class/instance/getIssue.project.number..st
@@ -0,0 +1,4 @@
+requesting
+getIssue: owner project: projectName number: issueNumber
+
+	^ self get: 'repos/', owner,'/', projectName, '/issues/', (issueNumber asString)
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/README.md b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/README.md
new file mode 100644
index 0000000000..94005f4d5f
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/README.md
@@ -0,0 +1,4 @@
+I'm a panel to create a new branch taking a GitHub issue as basis.
+A GitHub issue will be created in the form: 
+
+123-a-github-issue
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/defaultSpec.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/defaultSpec.st
new file mode 100644
index 0000000000..1992c42d48
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/defaultSpec.st
@@ -0,0 +1,20 @@
+specs
+defaultSpec
+	<spec: #default>
+
+	^ SpecLayout composed
+		newColumn: [ :col | 
+			col
+				newRow: #currentBranchLabel height: self inputTextHeight;
+				newRow: #remotePanel height: self inputTextHeight;
+				newRow: [ :row | 
+					row
+						newColumn: #branchLabel width: self iceLabelWidth;
+						newColumn: #issueNumberText ]
+					height: self inputTextHeight;
+				newRow: [ :row |
+					row 
+						newColumn: #issueLabel width: self iceLabelWidth;
+						newColumn: #issueText ] 
+					height: self inputTextHeight;
+				newRow: #spacePanel ]
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/icon.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/icon.st
new file mode 100644
index 0000000000..30f141f85c
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/icon.st
@@ -0,0 +1,4 @@
+accessing
+icon
+
+	^ (self iconNamed: #github) scaledToSize: 16@16
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/title.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/title.st
new file mode 100644
index 0000000000..ccbac2124a
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/title.st
@@ -0,0 +1,3 @@
+accessing
+title
+	^ 'New branch from issue'
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/unknownTitle.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/unknownTitle.st
new file mode 100644
index 0000000000..6f29beccaa
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/unknownTitle.st
@@ -0,0 +1,3 @@
+accessing
+unknownTitle
+	^ 'INVALID-ISSUE'
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/branchName.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/branchName.st
new file mode 100644
index 0000000000..bb976f4560
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/branchName.st
@@ -0,0 +1,6 @@
+accessing
+branchName
+	
+	^ '{1}-{2}' format: { 
+		issueNumberText text trim. 
+		issueText text trim }.
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/extent.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/extent.st
new file mode 100644
index 0000000000..c2c3062cd1
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/extent.st
@@ -0,0 +1,3 @@
+api
+extent
+	^ 800@175
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initialize.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initialize.st
new file mode 100644
index 0000000000..02702cea4e
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initialize.st
@@ -0,0 +1,5 @@
+initialization
+initialize
+
+	super initialize.
+	fetched := false
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initializeFocusOrder.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initializeFocusOrder.st
new file mode 100644
index 0000000000..3dfda89c68
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initializeFocusOrder.st
@@ -0,0 +1,7 @@
+initialization
+initializeFocusOrder
+
+	self focusOrder
+		add: remotePanel;
+		add: issueNumberText;
+		add: issueText
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initializeWidgetsContents.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initializeWidgetsContents.st
new file mode 100644
index 0000000000..c27f470c6c
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initializeWidgetsContents.st
@@ -0,0 +1,25 @@
+initialization
+initializeWidgetsContents
+	spacePanel := PanelMorph new asSpecAdapter.
+	
+	self initializeCurrentBranchLabel.
+	
+	remotePanel := self instantiate: IceTipSelectRemotePresenter on: self selectRemoteModel.
+	remotePanel remoteList whenSelectedItemChanged: [ :remoteModel | 
+		self useRemote: remoteModel  ].
+
+	branchLabel := self newLabel label: 'Issue number:'.
+	issueNumberText := self newTextInput
+		ghostText: 'e.g., 123';
+		autoAccept: true.
+	issueLabel := self newLabel label: 'Title:'.
+	issueText := self newTextInput
+		ghostText: 'e.g., 123-github-issue';
+		autoAccept: true.
+		
+	issueNumberText whenBuiltDo: [ :w | w widget wrapFlag: false ].
+	issueText
+		whenBuiltDo: [ :w | 
+			w widget wrapFlag: false.
+			w widget enabled: false ].
+	issueNumberText textHolder whenChangedDo: [ :text | self validateIssue: text ]
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueLabel..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueLabel..st
new file mode 100644
index 0000000000..2f0e0353fe
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueLabel..st
@@ -0,0 +1,3 @@
+accessing ui
+issueLabel: anObject
+	issueLabel := anObject
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueLabel.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueLabel.st
new file mode 100644
index 0000000000..335db75c44
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueLabel.st
@@ -0,0 +1,3 @@
+accessing ui
+issueLabel
+	^ issueLabel
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueNumberText..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueNumberText..st
new file mode 100644
index 0000000000..ac53992663
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueNumberText..st
@@ -0,0 +1,3 @@
+accessing ui
+issueNumberText: anObject
+	issueNumberText := anObject
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueNumberText.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueNumberText.st
new file mode 100644
index 0000000000..52dfddd08a
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueNumberText.st
@@ -0,0 +1,3 @@
+accessing ui
+issueNumberText
+	^ issueNumberText
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueText..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueText..st
new file mode 100644
index 0000000000..d1405f32df
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueText..st
@@ -0,0 +1,3 @@
+accessing ui
+issueText: anObject
+	issueText := anObject
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueText.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueText.st
new file mode 100644
index 0000000000..671e730df3
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueText.st
@@ -0,0 +1,3 @@
+accessing ui
+issueText
+	^ issueText
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/remotePanel..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/remotePanel..st
new file mode 100644
index 0000000000..e089289f68
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/remotePanel..st
@@ -0,0 +1,3 @@
+accessing ui
+remotePanel: anObject
+	remotePanel := anObject
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/remotePanel.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/remotePanel.st
new file mode 100644
index 0000000000..f763dbbd40
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/remotePanel.st
@@ -0,0 +1,3 @@
+accessing ui
+remotePanel
+	^ remotePanel
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/sanitizeTitle..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/sanitizeTitle..st
new file mode 100644
index 0000000000..49a14ccd89
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/sanitizeTitle..st
@@ -0,0 +1,12 @@
+private
+sanitizeTitle: aString
+	| separators safeSeparator |
+	
+	aString isEmptyOrNil ifTrue: [ ^ self class unknownTitle ].
+	
+	safeSeparator := $-.
+	separators := { Character space. Character tab. $_. safeSeparator }.
+	^ String streamContents: [ :str | 
+		aString do: [ :c |
+			(separators includes: c) ifTrue: [ str nextPut: safeSeparator ].
+			c isAlphaNumeric ifTrue: [ str nextPut: c ] ] ]
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/selectRemoteModel.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/selectRemoteModel.st
new file mode 100644
index 0000000000..8d35d64ab5
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/selectRemoteModel.st
@@ -0,0 +1,7 @@
+accessing
+selectRemoteModel
+
+	^ selectRemoteModel ifNil: [
+		selectRemoteModel := IceTipRemoteActionModel 
+			repositoryModel: self model
+			on: self model entity ]
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/updateText..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/updateText..st
new file mode 100644
index 0000000000..17fe225687
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/updateText..st
@@ -0,0 +1,5 @@
+private
+updateText: aString 
+
+	issueText text: aString.
+	fetched := true
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/useRemote..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/useRemote..st
new file mode 100644
index 0000000000..0afc755476
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/useRemote..st
@@ -0,0 +1,4 @@
+private
+useRemote: aRemoteModel
+
+	self selectRemoteModel useRemote: aRemoteModel
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/validate.st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/validate.st
new file mode 100644
index 0000000000..b463ca2d7f
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/validate.st
@@ -0,0 +1,10 @@
+accessing
+validate
+	
+	self
+		assert: ((issueNumberText text asString notEmpty) and: [ issueNumberText text isAllDigits ])
+		description: 'Please enter a valid issue number'.
+		
+	self
+		assert: fetched
+		description: 'Please fetch a valid issue number'
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/validateIssue..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/validateIssue..st
new file mode 100644
index 0000000000..bca549a5b3
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/validateIssue..st
@@ -0,0 +1,24 @@
+private
+validateIssue: aString
+	| number remote |
+
+	fetched := false.
+	aString trimmed isEmpty ifTrue: [ ^ self ].
+	aString isAllDigits ifFalse: [ ^ self ].
+	number := aString asNumber.
+	(issue isNil or: [ (issue at: 'number') ~= number ]) ifFalse: [ ^ self ].
+	remote := self selectRemoteModel remote.
+	
+	self wait: 500 milliSeconds thenDo: [ 	
+		[
+			issue := IceGitHubAPI new 
+				beAnonymous;
+				getIssue: remote owner 
+					project: remote projectName 
+					number: number.
+			UIManager default defer: [ 
+				self updateText: (self sanitizeTitle: (issue at: 'title')) ] ]
+		on: IceGitHubError do: [ :e | 
+			e messageText = 'Not Found' ifFalse: [ e pass ].
+			 UIManager default defer: [ 
+				self updateText: self class unknownTitle ] ] ]
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/wait.thenDo..st b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/wait.thenDo..st
new file mode 100644
index 0000000000..adf70371c2
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/wait.thenDo..st
@@ -0,0 +1,12 @@
+private
+wait: time thenDo: aBlock
+	"This method avoids to request too many times the github api. 
+	 It does it in the simplest way possible: it starts a process that waits some 
+	 time (usually 500 milliseconds). If there is another entry before, it terminates 
+	 the process and starts a new one."
+
+	currentWaitingProcess ifNotNil: [ currentWaitingProcess terminate ].
+	currentWaitingProcess := [ 
+			time wait.
+			aBlock value ] 
+		forkNamed: 'GitHub issue tracker'
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/properties.json b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/properties.json
new file mode 100644
index 0000000000..9ced0cb3d6
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/properties.json
@@ -0,0 +1,20 @@
+{
+	"commentStamp" : "EstebanLorenzano 9/18/2018 17:11",
+	"super" : "IceTipCheckoutNewBranchPanel",
+	"category" : "Iceberg-Plugin-GitHub-View",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"remotePanel",
+		"issueNumberText",
+		"issueLabel",
+		"issueText",
+		"issue",
+		"fetched",
+		"selectRemoteModel",
+		"currentWaitingProcess"
+	],
+	"name" : "IceGitHubNewBranchFromIssuePanel",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/README.md b/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/README.md
new file mode 100644
index 0000000000..d0d145384d
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/README.md
@@ -0,0 +1,4 @@
+I'm a pluging to handle GitHub issues integration. 
+It just add options to easily handle the creation of branchs with the "convention" issue naming format (number-plus-normalised-title): 
+
+123-a-sample-of-issue-branch
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/class/isAvailableFor..st b/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/class/isAvailableFor..st
new file mode 100644
index 0000000000..9dd00480b6
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/class/isAvailableFor..st
@@ -0,0 +1,4 @@
+testing
+isAvailableFor: aRepository
+
+	^ aRepository remotes anySatisfy: [ :each | each host = 'github.com' ]
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/instance/checkoutBranchPanelsOnModel..st b/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/instance/checkoutBranchPanelsOnModel..st
new file mode 100644
index 0000000000..47659517af
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/instance/checkoutBranchPanelsOnModel..st
@@ -0,0 +1,4 @@
+accessing-ui
+checkoutBranchPanelsOnModel: aRepositoryModel 
+	
+	^ { IceGitHubNewBranchFromIssuePanel on: aRepositoryModel }
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/properties.json b/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/properties.json
new file mode 100644
index 0000000000..01edf4d557
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "EstebanLorenzano 9/18/2018 17:09",
+	"super" : "IcePlugin",
+	"category" : "Iceberg-Plugin-GitHub",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "IceGitHubPlugin",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/README.md b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/README.md
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/browserContextActivation.st b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/browserContextActivation.st
new file mode 100644
index 0000000000..b8f6c508ff
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/browserContextActivation.st
@@ -0,0 +1,8 @@
+testing
+browserContextActivation
+	<classAnnotation>
+	
+	^ CmdContextMenuActivation 
+			byItemOf: IceGitHubMenuGroup
+			order: 20
+			for: IceTipRepositoryListContext
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/canBeExecutedInContext..st b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/canBeExecutedInContext..st
new file mode 100644
index 0000000000..d823ec3e3b
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/canBeExecutedInContext..st
@@ -0,0 +1,4 @@
+testing
+canBeExecutedInContext: aToolContext
+
+	^ aToolContext repositoryModel remotes anySatisfy: [ :each | each host = 'github.com' ]
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultMenuIconName.st b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultMenuIconName.st
new file mode 100644
index 0000000000..6c4215c77d
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultMenuIconName.st
@@ -0,0 +1,3 @@
+testing
+defaultMenuIconName
+	^ #branch
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultMenuItemName.st b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultMenuItemName.st
new file mode 100644
index 0000000000..d203fdd2f4
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultMenuItemName.st
@@ -0,0 +1,3 @@
+testing
+defaultMenuItemName
+	^ 'Create new branch for issue...'
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultPosition.st b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultPosition.st
new file mode 100644
index 0000000000..6bb53733a8
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultPosition.st
@@ -0,0 +1,4 @@
+testing
+defaultPosition
+
+	^ #right
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultToolbarItemName.st b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultToolbarItemName.st
new file mode 100644
index 0000000000..e97034535f
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultToolbarItemName.st
@@ -0,0 +1,3 @@
+testing
+defaultToolbarItemName
+	^ 'New issue'
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/instance/defaultMenuIcon.st b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/instance/defaultMenuIcon.st
new file mode 100644
index 0000000000..2ab976a7f8
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/instance/defaultMenuIcon.st
@@ -0,0 +1,4 @@
+execution
+defaultMenuIcon
+
+	^ self iconNamed: #github
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/instance/execute.st b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/instance/execute.st
new file mode 100644
index 0000000000..dc86cf9a27
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/instance/execute.st
@@ -0,0 +1,6 @@
+execution
+execute
+
+	(IceTipCheckoutBranchDialog on: self repositoryModel)
+		withTypes: (IceGitHubPlugin new checkoutBranchPanelsOnModel: self repositoryModel);
+		openDialogWithSpec
\ No newline at end of file
diff --git a/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/properties.json b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/properties.json
new file mode 100644
index 0000000000..56718c7ce0
--- /dev/null
+++ b/Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "IceTipCommand",
+	"category" : "Iceberg-Plugin-GitHub-Commands",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "IceNewBranchFromGitHubIssueCommand",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/Iceberg-Plugin-Pharo.package/IcePharoManuscriptPlugin.class/instance/checkoutBranchPanelsOnModel..st b/Iceberg-Plugin-Pharo.package/IcePharoManuscriptPlugin.class/instance/checkoutBranchPanelsOnModel..st
index 6b24f9436d..2352649614 100644
--- a/Iceberg-Plugin-Pharo.package/IcePharoManuscriptPlugin.class/instance/checkoutBranchPanelsOnModel..st
+++ b/Iceberg-Plugin-Pharo.package/IcePharoManuscriptPlugin.class/instance/checkoutBranchPanelsOnModel..st
@@ -1,4 +1,4 @@
 acccessing-ui
-checkoutBranchPanelsOnModel: anIceTipCachedModel 
+checkoutBranchPanelsOnModel: aRepositoryModel 
 	
-	^ { IcePharoNewBranchFromIssuePanel on: anIceTipCachedModel }
\ No newline at end of file
+	^ { IcePharoNewBranchFromIssuePanel on: aRepositoryModel }
\ No newline at end of file
diff --git a/Iceberg-Plugin-Pharo.package/IcePharoNewBranchFromIssuePanel.class/class/iceLabelWidth.st b/Iceberg-Plugin-Pharo.package/IcePharoNewBranchFromIssuePanel.class/class/iceLabelWidth.st
deleted file mode 100644
index fdd1ebe3ee..0000000000
--- a/Iceberg-Plugin-Pharo.package/IcePharoNewBranchFromIssuePanel.class/class/iceLabelWidth.st
+++ /dev/null
@@ -1,3 +0,0 @@
-accessing
-iceLabelWidth
-	^ 130 * World displayScaleFactor
\ No newline at end of file
diff --git a/Iceberg.package/IceCredentialsProvider.class/class/defaultForRemoteUrl..st b/Iceberg.package/IceCredentialsProvider.class/class/defaultForRemoteURL..st
similarity index 100%
rename from Iceberg.package/IceCredentialsProvider.class/class/defaultForRemoteUrl..st
rename to Iceberg.package/IceCredentialsProvider.class/class/defaultForRemoteURL..st