--- a/DirectoryContentsBrowser.st	Thu Feb 09 18:20:20 2017 +0100
+++ b/DirectoryContentsBrowser.st	Thu Feb 09 18:20:53 2017 +0100
@@ -3181,17 +3181,17 @@
 !
 
 suffixes
-
     | lastSuff lastButOneSuff|
 
+    lastSuff := self suffix.
     (fileName name occurrencesOf:$.) <= 1 ifTrue:[
-        ^ Array with:(self suffix) with:nil.
+        ^ Array with:lastSuff with:nil.
     ].
     (fileName baseName occurrencesOf:$.) <= 1 ifTrue:[
-        ^ Array with:(self suffix) with:nil.
+        ^ Array with:lastSuff with:nil.
     ].
 
-    ((lastSuff := self suffix) isEmpty) ifTrue:[  
+    lastSuff isEmpty ifTrue:[  
         lastSuff := nil.
     ] ifFalse:[
         lastSuff := lastSuff asLowercase. 
@@ -3210,6 +3210,8 @@
         ]
     ].
     ^ Array with:lastSuff with:lastButOneSuff
+
+    "Modified: / 09-02-2017 / 13:51:12 / stefan"
 !
 
 type