diff --git a/R/methods-AlignmentPairs-class.R b/R/methods-AlignmentPairs-class.R
index 96d7fe8..8dfc90d 100644
--- a/R/methods-AlignmentPairs-class.R
+++ b/R/methods-AlignmentPairs-class.R
@@ -13,7 +13,7 @@ setMethod("AlignmentPairs", signature = c("GRanges", "GRanges"),
     if (!missing(...)) {
         elementMetadata <- DataFrame(...)
     } else {
-        elementMetadata <- new("DataFrame", nrows = length(query))
+        elementMetadata <- new("DFrame", nrows = length(query))
     }
     elementMetadata$query <- query
     elementMetadata$subject <- subject