From 7efb1e0db66359ef5047da0732d8e0df7d63df2e Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 19 Jan 2006 13:04:41 +0000
Subject: [PATCH] fix sorting of "hw1a" "hw1b" etc

svn: r1868
---
 collects/handin-server/status-web-root/servlets/status.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/handin-server/status-web-root/servlets/status.ss b/collects/handin-server/status-web-root/servlets/status.ss
index 2c36e73ef4..a1529bdb0e 100644
--- a/collects/handin-server/status-web-root/servlets/status.ss
+++ b/collects/handin-server/status-web-root/servlets/status.ss
@@ -180,7 +180,8 @@
 			  [bm (regexp-match re:base b)])
 		      (if (and am bm
 			       (string=? (cadr am) (cadr bm)))
-			  (< (string->number (caddr am)) (string->number (caddr bm)))
+			  (or (< (string->number (caddr am)) (string->number (caddr bm)))
+                              (string<? a b))
 			  (string<? a b)))))]
 	      [user (get-status status 'user (lambda () "???"))])
 	  (let ([next