diff --git a/R/xpose_data.R b/R/xpose_data.R
index 68c11b22..a2a3e5f1 100644
--- a/R/xpose_data.R
+++ b/R/xpose_data.R
@@ -169,4 +169,10 @@ xpose_data <- function(runno         = NULL,
     structure(class = c('xpose_data', 'uneval'))
 }
 
-
+#' Allow assignment into xpose_data without conversion to class uneval
+`[[<-.xpose_data` <- function(x, i, value) {
+  x <- unclass(x)
+  x[[i]] <- value
+  as.xpdb(x)
+}
+`$<-.xpose_data` <- `[[<-.xpose_data`