diff --git a/NEWS.md b/NEWS.md
index 03348252..61e24f47 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -4,6 +4,9 @@
   search for the application by name when there are no matching deployment
   records. (#985, #989)
 
+* `rpubsUpload()` correctly records the initial RPubs destination, allowing
+  republishing.
+
 # rsconnect 1.1.1
 
 * Added `space` parameter to deploy directly to a space in Posit Cloud.
diff --git a/R/rpubs.R b/R/rpubs.R
index c7c5492d..1f29e9b2 100644
--- a/R/rpubs.R
+++ b/R/rpubs.R
@@ -144,8 +144,15 @@ rpubsUpload <- function(title,
     recordName <- ifelse(is.null(title) || nchar(title) == 0,
                          basename(recordSource), title)
 
-    rpubsRec <- deploymentRecord(recordName, "", "", "rpubs", "rpubs.com", "rpubs.com", id, id,
-                                 url, as.numeric(Sys.time()))
+    rpubsRec <- deploymentRecord(name = recordName,
+                                 title = "",
+                                 username = "",
+                                 account = "rpubs",
+                                 server = "rpubs.com",
+                                 hostUrl = "rpubs.com",
+                                 appId = id,
+                                 bundleId = id,
+                                 url = url)
     rpubsRecFile <- deploymentConfigFile(recordSource, recordName, "rpubs",
                                    "rpubs.com")
     write.dcf(rpubsRec, rpubsRecFile, width = 4096)