diff --git a/core/defuns/defuns-workgroup.el b/core/defuns/defuns-workgroup.el
index 89f1afaed..d9dd2f18e 100644
--- a/core/defuns/defuns-workgroup.el
+++ b/core/defuns/defuns-workgroup.el
@@ -124,7 +124,7 @@
 ;;;###autoload
 (defun narf/workgroup-update-names (&optional wg)
   (let ((wg (or wg (wg-current-workgroup))))
-    (unless (memq wg narf-wg-names)
+    (unless (member (wg-workgroup-uid wg) narf-wg-names)
       (ignore-errors
         (let ((old-name (wg-workgroup-name wg))
               (new-name (f-filename (narf/project-root))))