diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index 54f1a1d7..8bb33f2c 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -430,34 +430,34 @@
          ((eq? p 'Cyc-write-char)        "Cyc_write_char")
          ((eq? p 'car)           "Cyc_car")
          ((eq? p 'cdr)           "Cyc_cdr")
-         ((eq? p 'caar)          "caar")
-         ((eq? p 'cadr)          "cadr")
-         ((eq? p 'cdar)          "cdar")
-         ((eq? p 'cddr)          "cddr")
-         ((eq? p 'caaar)         "caaar")
-         ((eq? p 'caadr)         "caadr")
-         ((eq? p 'cadar)         "cadar")
-         ((eq? p 'caddr)         "caddr")
-         ((eq? p 'cdaar)         "cdaar")
-         ((eq? p 'cdadr)         "cdadr")
-         ((eq? p 'cddar)         "cddar")
-         ((eq? p 'cdddr)         "cdddr")
-         ((eq? p 'caaaar)        "caaaar")
-         ((eq? p 'caaadr)        "caaadr")
-         ((eq? p 'caadar)        "caadar")
-         ((eq? p 'caaddr)        "caaddr")
-         ((eq? p 'cadaar)        "cadaar")
-         ((eq? p 'cadadr)        "cadadr")
-         ((eq? p 'caddar)        "caddar")
-         ((eq? p 'cadddr)        "cadddr")
-         ((eq? p 'cdaaar)        "cdaaar")
-         ((eq? p 'cdaadr)        "cdaadr")
-         ((eq? p 'cdadar)        "cdadar")
-         ((eq? p 'cdaddr)        "cdaddr")
-         ((eq? p 'cddaar)        "cddaar")
-         ((eq? p 'cddadr)        "cddadr")
-         ((eq? p 'cdddar)        "cdddar")
-         ((eq? p 'cddddr)        "cddddr")
+         ((eq? p 'caar)          "Cyc_caar")
+         ((eq? p 'cadr)          "Cyc_cadr")
+         ((eq? p 'cdar)          "Cyc_cdar")
+         ((eq? p 'cddr)          "Cyc_cddr")
+         ((eq? p 'caaar)         "Cyc_caaar")
+         ((eq? p 'caadr)         "Cyc_caadr")
+         ((eq? p 'cadar)         "Cyc_cadar")
+         ((eq? p 'caddr)         "Cyc_caddr")
+         ((eq? p 'cdaar)         "Cyc_cdaar")
+         ((eq? p 'cdadr)         "Cyc_cdadr")
+         ((eq? p 'cddar)         "Cyc_cddar")
+         ((eq? p 'cdddr)         "Cyc_cdddr")
+         ((eq? p 'caaaar)        "Cyc_caaaar")
+         ((eq? p 'caaadr)        "Cyc_caaadr")
+         ((eq? p 'caadar)        "Cyc_caadar")
+         ((eq? p 'caaddr)        "Cyc_caaddr")
+         ((eq? p 'cadaar)        "Cyc_cadaar")
+         ((eq? p 'cadadr)        "Cyc_cadadr")
+         ((eq? p 'caddar)        "Cyc_caddar")
+         ((eq? p 'cadddr)        "Cyc_cadddr")
+         ((eq? p 'cdaaar)        "Cyc_cdaaar")
+         ((eq? p 'cdaadr)        "Cyc_cdaadr")
+         ((eq? p 'cdadar)        "Cyc_cdadar")
+         ((eq? p 'cdaddr)        "Cyc_cdaddr")
+         ((eq? p 'cddaar)        "Cyc_cddaar")
+         ((eq? p 'cddadr)        "Cyc_cddadr")
+         ((eq? p 'cdddar)        "Cyc_cdddar")
+         ((eq? p 'cddddr)        "Cyc_cddddr")
          ((eq? p 'char->integer) "Cyc_char2integer")
          ((eq? p 'integer->char) "Cyc_integer2char")
          ((eq? p 'string->number)"Cyc_string2number2_")
@@ -538,6 +538,10 @@
         apply
         car
         cdr
+        caar cadr cdar cddr
+        caaar caadr cadar caddr cdaar cdadr cddar cdddr
+        caaaar caaadr caadar caaddr cadaar cadadr
+        caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
         Cyc-default-exception-handler
         Cyc-current-exception-handler
         Cyc-end-thread!