diff --git a/src/PgStructure.hs b/src/PgStructure.hs
index 8152b8c76..02767aa76 100644
--- a/src/PgStructure.hs
+++ b/src/PgStructure.hs
@@ -77,7 +77,8 @@ tables s conn = do
         "select table_schema, table_name,\
         \       is_insertable_into\
         \  from information_schema.tables\
-        \ where table_schema = ?" [toSql s]
+        \ where table_schema = ?\
+        \ order by table_name" [toSql s]
   return $ mapMaybe mkTable r
 
   where