diff --git a/src/Batches/batch.jl b/src/Batches/batch.jl
index 95552786..8fad62a6 100644
--- a/src/Batches/batch.jl
+++ b/src/Batches/batch.jl
@@ -35,3 +35,6 @@ Seq(xs) = Seq(Storage(xs))
 Seq{T,S}(xs) where {T,S} = Seq{T,S}(Storage{T,S}(xs))
 
 storage(s::Seq) = s.data
+
+Base.rpad{T}(xs::Seq{T}, n::Integer, x::T) =
+  n-length(xs) ≤ 0 ? xs : vcat(xs, typeof(xs)(repeated(x, n-length(xs))))