--- a/FileSelectionList.st	Sun Jul 16 14:04:21 2017 +0200
+++ b/FileSelectionList.st	Sun Jul 16 14:05:58 2017 +0200
@@ -916,19 +916,24 @@
     directoryStack isNil ifTrue:[
         directoryStack := OrderedCollection new.
     ].
-    directoryStack addFirst:current pathName
+    directoryStack addFirst:current pathName.
+    ^ true
+
+    "Modified: / 16-07-2017 / 13:48:13 / cg"
 !
 
 changeToPreviousDirectory
     "change to the previous directory"
 
-    |current previous|
+    |previous|
 
     directoryStack size == 0 ifTrue:[^ false].
 
     previous := directoryStack removeFirst.
 
-    (self changeDirectoryTo:(previous asFilename baseName)) ifFalse:[^ false].
+    ^ (self changeDirectoryTo:(previous asFilename baseName))
+
+    "Modified: / 16-07-2017 / 13:48:28 / cg"
 !
 
 selectionIsDirectory