FileOperation.st
changeset 17121 0d404f4364cd
parent 17117 7ccd2a0f7940
child 17138 72bf03c1ff80
child 17758 1d8d76301e8d
--- a/FileOperation.st	Mon Nov 28 23:07:37 2016 +0100
+++ b/FileOperation.st	Mon Nov 28 23:08:22 2016 +0100
@@ -989,17 +989,17 @@
 doCreateLinkFrom:oldPath to:newPathArg soft:symbolic
     "actually create a soft or hard link"
 
-    |resources err newPath newPathFile oldPathFile|
+    |resources newPath newPathFile oldPathFile|
 
     newPath := newPathArg.
 
     resources := AbstractFileBrowser classResources.
 
-    (oldPath size == 0) ifTrue:[
+    oldPath isNil ifTrue:[
         self operationError:'Missing source'.
         ^ self.
     ].
-    (newPath size == 0) ifTrue:[
+    newPath isNil ifTrue:[
         self operationError:'Missing link name (target)'.
         ^ self.
     ].
@@ -1037,8 +1037,7 @@
         ^ self.
     ].
     ErrorSignal handle:[:ex |
-        err := ex errorString.
-        self operationError:err.
+        self operationError:ex description.
     ] do:[
         symbolic ifTrue:[
             newPathFile createAsSymbolicLinkTo:oldPathFile.