--- a/Tools__ToDoListBrowser.st	Mon Mar 03 10:39:18 2008 +0100
+++ b/Tools__ToDoListBrowser.st	Mon Mar 03 10:39:33 2008 +0100
@@ -277,12 +277,14 @@
          width: 32
          model: severityString
          canSelect: false
+         labelActionSelector: sortBy:
+         labelActionArgument: 'severity'
        )
       (DataSetColumnSpec
          label: 'Prio'
          labelButtonType: Button
          width: 30
-         model: priority
+         model: priorityString
          canSelect: false
          labelActionSelector: sortBy:
          labelActionArgument: 'priority'
@@ -537,7 +539,19 @@
 
     col := currentSortOrder at:#column.
 
-    sortBlock := sortBlock1 := [:a :b | (a perform:col) < (b perform:col)].
+    sortBlock := sortBlock1 := [:a :b |
+                                    |vA vB|
+
+                                    vA := (a perform:col).
+                                    vB := (b perform:col).
+                                    vA = vB ifTrue:[
+                                        col == #severity ifTrue:[
+                                            vA := a priority.
+                                            vB := b priority.
+                                        ]
+                                    ].
+                                    vA < vB
+                               ].
 
     (currentSortOrder at:#reverse) ifTrue:[
         sortBlock := [:a :b | (sortBlock1 value:a value:b) not ].
@@ -586,5 +600,5 @@
 !ToDoListBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.11 2008-02-27 16:13:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.12 2008-03-03 09:39:33 cg Exp $'
 ! !