Cannot load a baseline from a remote with a non default ssh port

[jecisc]

Pharo: 60523

OS: Windows 10/7

VM:

C:\Users\Cyril\Documents\Pharo\vms\61-x86\Pharo.exe
CoInterpreter VMMaker.oscog-eem.2254 uuid: 4f2c2cce-f4a2-469a-93f1-97ed941df0ad Jul 20 2017
StackToRegisterMappingCogit VMMaker.oscog-eem.2252 uuid: 2f3e9b0e-ecd3-4adf-b092-cce2e2587a5c Jul 20 2017
VM: 201707201942 https://github.com/OpenSmalltalk/opensmalltalk-vm.git $ Date: Thu Jul 20 12:42:21 2017 -0700 $ Plugins: 201707201942 https://github.com/OpenSmalltalk/opensmalltalk-vm.git $

Win32 built on Jul 20 2017 20:21:26 GMT Compiler: 5.4.0
VMMaker versionString VM: 201707201942 https://github.com/OpenSmalltalk/opensmalltalk-vm.git $ Date: Thu Jul 20 12:42:21 2017 -0700 $ Plugins: 201707201942 https://github.com/OpenSmalltalk/opensmalltalk-vm.git $
CoInterpreter VMMaker.oscog-eem.2254 uuid: 4f2c2cce-f4a2-469a-93f1-97ed941df0ad Jul 20 2017
StackToRegisterMappingCogit VMMaker.oscog-eem.2252 uuid: 2f3e9b0e-ecd3-4adf-b092-cce2e2587a5c Jul 20 2017

Action:

I have a private gitlab on my server which has a non default ssh port.
I also have a local clone of the project.

In Iceberg I add the local clone which has this remote:

ssh://[email protected]:3456/Projet/Bazard.git

I wanted to load the project with the right click on the baseline package -> Metacello -> Install baseline (default)

Expected result:

Installation of the project

Actual result:

I get this error:

[ ZnPortNotANumber signal ] in ZnUrl>>parseHostPort: in Block: [ ZnPortNotANumber signal ]
NumberParser>>nextIntegerBase:ifFail:
Integer class>>readFrom:ifFail:
ZnUrl>>parseHostPort:
ZnUrl>>parseAuthority:from:to:
ZnUrl>>parseFrom:defaultScheme:
ZnUrl>>parseFrom:
ZnUrl class>>fromString:
ByteString(String)>>asZnUrl
ZnClient>>url:
[ client := self httpClient.
client
	ifFail: [ :exception | 
		(exception className beginsWith: 'Zn')
			ifTrue: [ MCRepositoryError
					signal: 'Could not access ' , self location , ': ' , exception printString ]
			ifFalse: [ exception pass ] ];
	url: self locationWithTrailingSlash;
	queryAt: 'C' put: 'M;O=D';
	"legacy that some servers maybe expect"
		get.
self assertNonBinaryResponse: client response ] in MCHttpRepository>>loadAllFileNames in Block: [ client := self httpClient....