X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=tt.rkt;h=afc94f620d9e5047ffa57b4999acf1622eb0306e;hb=a139076c658d1569033a075072836688d949f7ca;hp=5718783f048a553b23def8df254b117cb74cf4ea;hpb=018b2abb4e198464e0962de8ed9b1da4d6b91a20;p=tt.git

diff --git a/tt.rkt b/tt.rkt
index 5718783..afc94f6 100644
--- a/tt.rkt
+++ b/tt.rkt
@@ -207,7 +207,7 @@
          [nick     "foo"]
          [uri      "bar"]
          [actual   (str->msg nick uri (string-append ts tab text))]
-         [expected (Msg 1605756129 ts nick uri text)])
+         [expected (Msg 1605756129 ts nick uri text '())])
     (check-equal?
       (Msg-ts-epoch actual)
       (Msg-ts-epoch expected)