diff --git a/src/workgroups2.el b/src/workgroups2.el
index 73a00c25eecd92b19cf0ba9dda147e519eb22129..d018a19ba1020cca9639691e9bf387d4c433aed1 100644
--- a/src/workgroups2.el
+++ b/src/workgroups2.el
@@ -4067,10 +4067,11 @@ current and previous workgroups."
 
 (defun wg-create-first-wg ()
   "Create a first workgroup if needed."
-  (if (and workgroups-mode
-           wg-session-load-on-start
-           (= (length (wg-workgroup-list)) 0))
-      (wg-create-workgroup wg-first-wg-name)))
+  (when (and workgroups-mode
+             wg-session-load-on-start
+             (= (length (wg-workgroup-list)) 0))
+    (wg-create-workgroup wg-first-wg-name)
+    (wg-mark-everything-unmodified)))
 
 (defun wg-pickel-workgroup-parameters (workgroup)
   "Return a copy of WORKGROUP after pickeling its parameters.