--- a/lib/ur/top.ur	Sun Dec 20 15:17:43 2009 -0500
+++ b/lib/ur/top.ur	Tue Dec 22 12:13:23 2009 -0500
@@ -208,6 +208,11 @@
                <xml>{f [nm] [t] [rest] ! r1 r2 r3}{acc}</xml>)
            <xml/>
 
+fun queryL [tables] [exps] [tables ~ exps] (q : sql_query tables exps) =
+    query q
+    (fn r ls => return (r :: ls))
+    []
+
 fun queryI [tables ::: {{Type}}] [exps ::: {Type}]
            [tables ~ exps] (q : sql_query tables exps)
            (f : $(exps ++ map (fn fields :: {Type} => $fields) tables)