--- a/AbstractFileBrowser.st	Thu Mar 06 17:19:53 2014 +0100
+++ b/AbstractFileBrowser.st	Thu Mar 06 17:20:00 2014 +0100
@@ -12,15 +12,15 @@
 "{ Package: 'stx:libtool' }"
 
 ApplicationModel subclass:#AbstractFileBrowser
-        instanceVariableNames:'aspects'
-        classVariableNames:'VisitedDirectories RuntimeAspects DirectoryBookmarks
-                LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix
-                CommandHistorySize LastFileDiffFile DefaultFilters RootHolder
-                LastFileSelection LastMoveDestination LastScriptBlockString
-                LastMustMatchPattern LastFileDiffDirectory
-                LastMercurialRepository'
-        poolDictionaries:''
-        category:'Interface-Tools-File'
+	instanceVariableNames:'aspects'
+	classVariableNames:'VisitedDirectories RuntimeAspects DirectoryBookmarks
+		LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix
+		CommandHistorySize LastFileDiffFile DefaultFilters RootHolder
+		LastFileSelection LastMoveDestination LastScriptBlockString
+		LastMustMatchPattern LastFileDiffDirectory
+		LastMercurialRepository'
+	poolDictionaries:''
+	category:'Interface-Tools-File'
 !
 
 AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
@@ -28,46 +28,46 @@
 "
  The following class instance variables are inherited by this class:
 
-        ApplicationModel - ClassResources
-        Model - 
-        Object - 
+	ApplicationModel - ClassResources
+	Model - 
+	Object - 
 "
 !
 
 Object subclass:#Clipboard
-        instanceVariableNames:'method files'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'method files'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 Object subclass:#CodeExecutionLock
-        instanceVariableNames:'locked'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'locked'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 List subclass:#DirectoryHistory
-        instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
-                backForwardList backForwardIndex historySize'
-        classVariableNames:'HistorySize'
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
+		backForwardList backForwardIndex historySize'
+	classVariableNames:'HistorySize'
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 Object subclass:#DirectoryHistoryItem
-        instanceVariableNames:'path position'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser::DirectoryHistory
+	instanceVariableNames:'path position'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser::DirectoryHistory
 !
 
 Object subclass:#SaveAspectItem
-        instanceVariableNames:'value isHolder'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'value isHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 !AbstractFileBrowser class methodsFor:'documentation'!
@@ -3950,6 +3950,7 @@
     ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
 ! !
 
+
 !AbstractFileBrowser methodsFor:'aspects-history'!
 
 dirHistory
@@ -5859,6 +5860,7 @@
     ]
 ! !
 
+
 !AbstractFileBrowser methodsFor:'menu actions-scm-mercurial'!
 
 mercurialAdd
@@ -7590,7 +7592,7 @@
     self withWaitCursorDo:[
         (name1 isNil or:[name1 asString isEmpty]) ifTrue:[
             text1 := self getAllFilesAsStrings asStringCollection withTabs.
-            text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l]].
+            text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l string]].
             name1 := nil.
             l1 := 'browser contents'
         ] ifFalse:[
@@ -8472,6 +8474,8 @@
     ^ false
 ! !
 
+
+
 !AbstractFileBrowser methodsFor:'presentation'!
 
 getModeString:modeBits
@@ -9406,10 +9410,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.549 2014-02-25 15:02:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.550 2014-03-06 16:20:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.549 2014-02-25 15:02:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.550 2014-03-06 16:20:00 cg Exp $'
 ! !