Index: core.clj
===================================================================
--- core.clj	(revision 1235)
+++ core.clj	(working copy)
@@ -1005,6 +1005,7 @@
   second item in the first form, making a list of it if it is not a
   list already. If there are more forms, inserts the first form as the
   second item in second form, etc."
+  ([x] x)
   ([x form] (if (seq? form)
               `(~(first form) ~x ~@(rest form))
               (list form x)))
@@ -1358,13 +1359,14 @@
   of those fns.  The returned fn takes a variable number of args,
   applies the rightmost of fns to the args, the next
   fn (right-to-left) to the result, etc."
-  [& fs]
+  ([] identity) 
+  ([& fs]
     (let [fs (reverse fs)]
       (fn [& args]
         (loop [ret (apply (first fs) args) fs (rest fs)]
           (if fs
             (recur ((first fs) ret) (rest fs))
-            ret)))))
+            ret))))))
 
 (defn partial
   "Takes a function f and fewer than the normal arguments to f, and