diff --git a/src/workgroups-pickel.el b/src/workgroups-pickel.el
index a07c6ae67418e15c87c41f1cbc52af90ddf68c50..0c5941cb3f9ba607c9072fac40ae21e46d44da17 100644
--- a/src/workgroups-pickel.el
+++ b/src/workgroups-pickel.el
@@ -137,7 +137,7 @@
   "Return a table binding unique subobjects of OBJ to ids."
   (let ((binds (make-hash-table :test 'eq))
         (id -1))
-    (cl-flet
+    (cl-labels
      ((inner (obj)
            (unless (gethash obj binds)
               (puthash obj (cl-incf id) binds)