diff --git a/src/workgroups-pickel.el b/src/workgroups-pickel.el
index 5c7f54072f23cb09c91116baad7a6a83e555e5e6..a07c6ae67418e15c87c41f1cbc52af90ddf68c50 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))
-    (dflet
+    (cl-flet
      ((inner (obj)
            (unless (gethash obj binds)
               (puthash obj (cl-incf id) binds)