diff --git a/src/workgroups2.el b/src/workgroups2.el
index 7a9a387c32f6b90e2db3985dedd3b8e3f30fc819..1b0a7f00d8fa4d1642346d419b98a5240465d4e7 100644
--- a/src/workgroups2.el
+++ b/src/workgroups2.el
@@ -3592,7 +3592,7 @@ symetry with `wg-undo-once-all-workgroups'."
 
 (defun wg-rename-workgroup (newname &optional workgroup)
   "Set NEWNAME to WORKGROUP's name."
-  (interactive (list nil (wg-read-new-workgroup-name "New name: ")))
+  (interactive (list (wg-read-new-workgroup-name "New name: ") nil))
   (-when-let (workgroup (wg-get-workgroup workgroup))
     (let* ((oldname (wg-workgroup-name workgroup)))
       (setf (wg-workgroup-name workgroup) newname)