diff --git a/lisp/clark.lisp b/lisp/clark.lisp
index 2d55043..2a63b26 100644
--- a/lisp/clark.lisp
+++ b/lisp/clark.lisp
@@ -242,6 +242,15 @@ otherwise."
           (t (format t "~A~%" ldoc))))
       (call-command help '("help"))))
 
+(defcommand remove (:min-args 1 :max-args 1)
+    "Remove a bookmark from the database."
+    "Usage: clark remove <url>
+
+Remove URL from the database."
+  (clear-tags (car args))
+  (execute-non-query
+   *db* "DELETE FROM bookmark WHERE url = ?" (car args)))
+
 (defcommand search (:min-args 1 :max-args 1)
     "Search through bookmarks."
     "Usage: clark search <str>