diff --git a/Makefile b/Makefile
index cfdf5d9a..b3300336 100644
--- a/Makefile
+++ b/Makefile
@@ -12,6 +12,7 @@ BOOTSTRAP_DIR = ../cyclone-bootstrap
 SMODULES = \
   scheme/base \
   scheme/char \
+  scheme/cxr \
   scheme/eval \
   scheme/file \
   scheme/load \
@@ -78,6 +79,7 @@ bootstrap: icyc
 	cp gc.c $(BOOTSTRAP_DIR)
 	cp dispatch.c $(BOOTSTRAP_DIR)
 	cp scheme/base.c $(BOOTSTRAP_DIR)/scheme
+	cp scheme/cxr.c $(BOOTSTRAP_DIR)/scheme
 	cp scheme/read.c $(BOOTSTRAP_DIR)/scheme
 	cp scheme/write.c $(BOOTSTRAP_DIR)/scheme
 	cp scheme/char.c $(BOOTSTRAP_DIR)/scheme
diff --git a/scheme/cxr.sld b/scheme/cxr.sld
new file mode 100644
index 00000000..d0b8a2f6
--- /dev/null
+++ b/scheme/cxr.sld
@@ -0,0 +1,6 @@
+(define-library (scheme cxr)
+  (export caaaaar)
+  (begin 
+    ;; Non-standard, this is just a placeholder
+    (define (caaaaar lis)
+      (car (car (car (car (car lis))))))))