--- a/Filename.st	Thu Mar 28 16:01:15 2019 +0100
+++ b/Filename.st	Thu Mar 28 16:12:18 2019 +0100
@@ -1767,6 +1767,19 @@
     "Modified: 8.9.1997 / 00:23:16 / cg"
 !
 
+possiblyQuotedPath:aPath
+    "if aPath requires any quoting, do so"
+    
+    (aPath includes:Character space) ifTrue:[
+        (aPath startsWith:$") ifFalse:[
+            ^ '"',aPath,'"'
+        ]
+    ].
+    ^ aPath
+
+    "Created: / 28-03-2019 / 16:11:50 / Claus Gittinger"
+!
+
 readingFile:aPathName do:aBlock
     "Create a read stream on a file, evaluate aBlock, passing that stream,
      and return the block's value.