--- a/AbstractFileBrowser.st	Wed Apr 01 10:47:53 2015 +0200
+++ b/AbstractFileBrowser.st	Thu Apr 09 14:24:19 2015 +0200
@@ -1873,6 +1873,10 @@
             itemValue: copySelectionToRepairingCorruptedFiles
           )
          (MenuItem
+            label: 'Copy Corrupted File From -> To...'
+            itemValue: copyFromToRepairingCorruptedFiles
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -4740,6 +4744,34 @@
     "Modified: / 25-07-2006 / 09:07:04 / cg"
 !
 
+copyFromToRepairingCorruptedFiles
+    "ask for source and destination and copy the entered file.
+     Especially useful for raw devices to copy corrupted disks/files
+    "
+
+    |source destination|
+
+    source := Dialog 
+                    requestDirectoryName:(resources string:'Copy from:') 
+                    default:(LastMoveDestination ? self currentDirectory)
+                    ok:(resources string:'Continue')
+                    abort:nil.
+
+    source isEmptyOrNil ifTrue:[^ self].
+    source := source asFilename.
+
+    destination := Dialog 
+                    requestDirectoryName:(resources string:'Copy "%1" to:' with:source) 
+                    default:(LastMoveDestination ? self currentDirectory)
+                    ok:(resources string:'Copy')
+                    abort:nil.
+
+    destination isEmptyOrNil ifTrue:[^ self].
+    destination := destination asFilename.
+
+    self copyFile:source to:destination repairCorruptedFiles:true.
+!
+
 copyOrMoveDialog:aCollectionOfFiles for:aDestinationDirectory
     |size msg answer file|
 
@@ -9624,10 +9656,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.588 2015-03-20 16:08:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.589 2015-04-09 12:24:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.588 2015-03-20 16:08:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.589 2015-04-09 12:24:19 cg Exp $'
 ! !