diff --git a/src/PDF/Object/Navigation.hs b/src/PDF/Object/Navigation.hs
index 6d8a4b3..4d9a860 100644
--- a/src/PDF/Object/Navigation.hs
+++ b/src/PDF/Object/Navigation.hs
@@ -39,8 +39,8 @@ type Component = String
 
 getDictionary :: PDFContent m => Object -> m Dictionary
 getDictionary (Direct (Dictionary aDict)) = return aDict
-getDictionary (Direct (Reference (IndirectObjCoordinates {objectId}))) =
-  objectById objectId >>= getDictionary
+getDictionary (Direct (Reference ref)) =
+  objectById (objectId ref) >>= getDictionary
 getDictionary (Stream {header}) = return header
 getDictionary obj = expected "dictionary : " obj