executeOnWindowsCommand: is broken on windows

[Ducasse]

executeOnWindowsCommand: command arguments: arguments workingDirectory: aWorkingDirectory | process success commandString | commandString := 'cd "', aWorkingDirectory, '" && ', command, ' ', (' ' join: arguments).

process := ProcessWrapper new.
process useStderr; useStdout.
success := process startWithShellCommand: commandString.
success ifFalse: [
	self error: 'command ', commandString ,' failed' ].

success := process waitForExit.
success ifFalse: [
	self error: 'command ', commandString ,' failed' ].

Transcript show: process stdoutStream upToEnd.
Transcript show: process stderrStream upToEnd.

process closeStdin.
process closeStderr.

process exitCode = 0 ifFalse: [
	self error: 'command ', commandString ,' failed' ].