--- a/EditTextView.st	Wed Mar 28 13:16:13 2012 +0200
+++ b/EditTextView.st	Sat Mar 31 11:01:25 2012 +0200
@@ -6405,7 +6405,7 @@
 sort:how ignoreCase:ignoreCase fromLine:start toLine:end
     "sort the selected lines"
 
-    |lines extractor fetcher lineWise nStr n s words|
+    |lines extractor innerExtractor fetcher lineWise nStr n s words|
 
     lineWise := true.
 
@@ -6422,10 +6422,12 @@
                 LastColumnNumberForSort := n.
                 extractor := [:l | ((l asCollectionOfWords) at:n ifAbsent:'')].
                 how == #linesByNthNumber ifTrue:[
-                    extractor := [:l | Integer readFrom:(extractor value:l) onError:0]
+                    innerExtractor := extractor.
+                    extractor := [:l | Integer readFrom:(innerExtractor value:l) onError:0]
                 ] ifFalse:[
                     how == #linesByNthHexNumber ifTrue:[
-                        extractor := [:l | Integer readFrom:(extractor value:l) radix:16 onError:0]
+                        innerExtractor := extractor.
+                        extractor := [:l | Integer readFrom:(innerExtractor value:l) radix:16 onError:0]
                     ]
                 ].
             ] ifFalse:[ 
@@ -6461,7 +6463,7 @@
     self replace:s.
     self textChanged.
 
-    "Modified: / 15-02-2012 / 17:49:52 / cg"
+    "Modified: / 31-03-2012 / 10:59:28 / cg"
 !
 
 sortSelection:how ignoreCase:ignoreCase
@@ -8039,9 +8041,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.525 2012-03-07 18:05:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.526 2012-03-31 09:01:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.525 2012-03-07 18:05:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.526 2012-03-31 09:01:25 cg Exp $'
 ! !