diff --git a/include/xo/object2/DList.hpp b/include/xo/object2/DList.hpp
index da21ca44..c61b2978 100644
--- a/include/xo/object2/DList.hpp
+++ b/include/xo/object2/DList.hpp
@@ -50,6 +50,9 @@ namespace xo {
                                              obj<AGCObject> car,
                                              DList * cdr);
 
+            obj<AGCObject> head() const noexcept { return head_; }
+            DList * rest() const noexcept { return rest_; }
+
             /** DList length is at least 1 **/
             bool is_empty() const noexcept;
             /** DList models a finite sequence **/