diff --git a/core/list.h b/core/list.h
index a0ec773..5a77f76 100644
--- a/core/list.h
+++ b/core/list.h
@@ -75,7 +75,7 @@
 #define list_add_head_named(list, item, prev, next)                                           \
     ({                                                                                        \
         if (list)                                                                             \
-            list_insert_before_named(list, list, item, prev, next);                           \
+            __list_insert_atleft_named(list, item, prev, next);                            \
         else                                                                                  \
             list_singleton_named(list, item, prev, next);                                     \
         (list) = (item);                                                                      \