diff --git a/test/Test.hs b/test/Test.hs
index 3d92243..908afa1 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -643,7 +643,8 @@ main = do
           ret <- select $
                  from $ \p -> do
                  let subquery =
-                       from $ \bp ->
+                       from $ \bp -> do
+                       orderBy [ asc (bp ^. BlogPostAuthorId) ]
                        return (bp ^. BlogPostAuthorId)
                  where_ (p ^. PersonId `in_` subList_select subquery)
                  return p