platform B, not A

wobsite.lisp

@@ -381,14 +381,14 @@
      ("westbound"
       "Westbound <i>towards Paddington</i>"
       ("Abbey Wood" 3 4)
-      ("Woolwich" "A")
-      ("Custom House" "A")
-      ("Canary Wharf" "A")
-      ("Whitechapel" "A")
-      ("Liverpool Street" "A")
-      ("Farringdon" "A")
-      ("Tottenham Court Road" "A")
-      ("Bond Street" "A")
+      ("Woolwich" "B")
+      ("Custom House" "B")
+      ("Canary Wharf" "B")
+      ("Whitechapel" "B")
+      ("Liverpool Street" "B")
+      ("Farringdon" "B")
+      ("Tottenham Court Road" "B")
+      ("Bond Street" "B")
       ("Paddington" "A" "B")))
     ("N"
      ("edgware-bank"
@@ -2266,7 +2266,7 @@
                         "history-station-dwell "
                         (if (> (- (trackernet::end-ts ent)
                                    (trackernet::universal-ts ent))
-                               90)
+                               (if (string= line-code "X") 180 90))
                             "history-dwell-tardy"
                             ""))
                 (who:esc (format-duration