diff --git a/src/unix.lisp b/src/unix.lisp
index ce15e16..b44287d 100644
--- a/src/unix.lisp
+++ b/src/unix.lisp
@@ -283,6 +283,10 @@
 
 ;; list → list
 (defun de-tail (list)
-  "Remove the last element from a list."
+  "Return a list sans its last element."
   (reverse (cdr (reverse list))))
 
+;; list → object
+(defun tail (list)
+  "Return the last element of a list."
+  (car (last list)))