Fixed Platform escapeForShell to escape backslashes themselves.

diff --git a/src/lib/platform.slate b/src/lib/platform.slate
index 2f6d7d0..1630648 100644 (file)
--- a/src/lib/platform.slate
+++ b/src/lib/platform.slate
@@ -46,7 +46,7 @@ s@(String traits) escapeForShell
 [
   [| :result |
    s do: [| :char |
-     (';<>*|`&$!#()[]{}:\'"' includes: char) ifTrue: [result nextPut: $\\].
+     (';<>*|`&$!#()[]{}:\\\'"' includes: char) ifTrue: [result nextPut: $\\].
      result nextPut: char
    ]] writingAs: s
 ].