diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp
index 70598f3c1..70cea16d5 100644
--- a/src/cmp/sysfun.lsp
+++ b/src/cmp/sysfun.lsp
@@ -360,15 +360,18 @@
 (def-inline nth :unsafe (t t) t "ecl_nth(fix(#0),#1)")
 (def-inline nth :unsafe (fixnum t) t "ecl_nth(#0,#1)")
 
+(def-inline first :always (t) t "ecl_car(#0)")
+(def-inline second :always (t) t "ecl_cadr(#0)")
+(def-inline third :always (t) t "ecl_caddr(#0)")
+(def-inline fourth :always (t) t "ecl_cadddr(#0)")
+
 (def-inline first :unsafe (cons) t "ECL_CONS_CAR(#0)")
 (def-inline first :unsafe (t) t "CAR(#0)")
-
 (def-inline second :unsafe (t) t "CADR(#0)")
-
 (def-inline third :unsafe (t) t "CADDR(#0)")
-
 (def-inline fourth :unsafe (t) t "CADDDR(#0)")
 
+(def-inline rest :always (t) t "ecl_cdr(#0)")
 (def-inline rest :unsafe (cons) t "ECL_CONS_CDR(#0)")
 (def-inline rest :unsafe (t) t "CDR(#0)")