@@ -459,13 +459,16 @@
 				      (update-search "test-name" val)))
 	      (iup:textbox #:size "60x15" #:fontsize "10" #:value "%"
 			   #:action (lambda (obj unk val)
 				      (set! *last-db-update-time* 0)
 				      (update-search "item-name" val)))))
-	    (iup:hbox
-	     (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
-	     (iup:button "Monitor" #:action (lambda (obj)(system (conc (car (argv))" -guimonitor &"))))
+	    (iup:vbox
+	     (iup:hbox
+	      (iup:button "Sort Order" #:acton (lambda (obj)(toggle-sort-order))))
+	     (iup:hbox
+	      (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
+	      (iup:button "Monitor" #:action (lambda (obj)(system (conc (car (argv))" -guimonitor &")))))
 	     ))
 	   ;; (iup:button "<-  Left" #:action (lambda (obj)(set! *start-run-offset*  (+ *start-run-offset* 1))))
 	   ;; (iup:button "Up     ^" #:action (lambda (obj)(set! *start-test-offset* (if (> *start-test-offset* 0)(- *start-test-offset* 1) 0))))
 	   ;; (iup:button "Down   v" #:action (lambda (obj)(set! *start-test-offset* (if (>= *start-test-offset* (length *alltestnamelst*))(length *alltestnamelst*)(+ *start-test-offset* 1)))))
 	   ;; (iup:button "Right ->" #:action (lambda (obj)(set! *start-run-offset*  (if (> *start-run-offset* 0)(- *start-run-offset* 1) 0))))