--- a/FileSorter.st	Mon Dec 01 12:13:12 2003 +0100
+++ b/FileSorter.st	Mon Dec 01 14:04:08 2003 +0100
@@ -85,7 +85,7 @@
 
 sortItemList:aList
 
-    |selectorSymbol instanceSortBlock cmpOp sortBlock|
+    |selectorSymbol instanceSortBlock cmpOp sortBlock locSortReverse|
 
     selectorSymbol := selector asSymbol.
     sortReverse ifTrue:[
@@ -93,6 +93,7 @@
     ] ifFalse:[
         cmpOp := #'<'
     ].
+    locSortReverse := self sortReverse.
     instanceSortBlock := [:a :b | 
         |entry1 entry2|
 
@@ -103,9 +104,9 @@
                 true
             ] ifFalse:[
                 ((entry1 notNil) and:[entry2 isNil]) ifTrue:[
-                    sortReverse
+                    locSortReverse
                 ] ifFalse:[
-                    sortReverse not
+                    locSortReverse not
                 ]
             ]
         ] ifFalse:[
@@ -140,5 +141,5 @@
 !FileSorter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.2 2003-12-01 11:13:12 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.3 2003-12-01 13:04:08 penk Exp $'
 ! !