--- Handler.hs_	2011-06-08 16:47:41.000000000 -0400
+++ Handler.hs	2011-06-08 16:46:04.000000000 -0400
@@ -395,5 +395,5 @@
     case contents of
         HCContent status a -> do
-            (ct, c) <- liftIO $ chooseRep a cts
+            (ct, c) <- liftIO $ a cts
             return $ YARPlain status (headers []) ct c finalSession
         HCError e -> handleError e