diff --git a/doc/maint/ChangeLog b/doc/maint/ChangeLog
index 7e8cd2eae..36735af2d 100644
--- a/doc/maint/ChangeLog
+++ b/doc/maint/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-09  Gary Houston  <ghouston@arglist.com>
+
+	* docstring.el: defined caddr, used in several places but missing
+	for some reason.
+
 2002-04-02  Thien-Thi Nguyen  <ttn@giblet.glug.org>
 
 	* doctring.el: List commands in commentary; nfc.
diff --git a/doc/maint/docstring.el b/doc/maint/docstring.el
index dddc8ba92..fda0b466b 100644
--- a/doc/maint/docstring.el
+++ b/doc/maint/docstring.el
@@ -243,6 +243,10 @@ to which new docstrings should be added.")
 				alist))))))))))
     alist))
 
+;; missing in some environments?
+(defun caddr (list)
+  (nth 2 list))
+
 ;; Return the docstring from the specified LOCATION.  LOCATION is a
 ;; list of three elements: buffer, start position and end position.
 (defun location-to-docstring (location)