--- a/lib/ur/top.ur	Sat Nov 20 09:48:03 2010 -0500
+++ b/lib/ur/top.ur	Sat Nov 20 10:45:22 2010 -0500
@@ -228,6 +228,11 @@
     (fn r ls => return (r :: ls))
     []
 
+fun queryL1 [t ::: Name] [fs ::: {Type}] (q : sql_query [] [t = fs] []) =
+    query q
+    (fn r ls => return (r.t :: ls))
+    []
+
 fun queryI [tables ::: {{Type}}] [exps ::: {Type}]
            [tables ~ exps] (q : sql_query [] tables exps)
            (f : $(exps ++ map (fn fields :: {Type} => $fields) tables)