diff --git a/src/ikarus.boot b/src/ikarus.boot
index 6cc2ce8..e346a4d 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.core.ss b/src/ikarus.core.ss
index 32a0b4b..29d367d 100644
--- a/src/ikarus.core.ss
+++ b/src/ikarus.core.ss
@@ -54,8 +54,6 @@
       (error 'set-top-level-value! "~s is not a symbol" x))
     ($set-symbol-value! x v)))
  
-  
-
 (primitive-set! 'primitive-set!
   (lambda (x v)
     (unless (symbol? x)
@@ -63,15 +61,6 @@
     (primitive-set! x v)
     (set-top-level-value! x v)))
 
- 
- 
-
-
-
-
-
-
-
 (primitive-set! '$memq
   (lambda (x ls)
     (let f ([x x] [ls ls])
@@ -113,9 +102,6 @@
       [else 
        (error 'char-downcase "~s is not a character" c)])))
 
-
-
-
 (primitive-set! 'cons (lambda (x y) (cons x y)))
 
 (primitive-set! 'eq? (lambda (x y) (eq? x y)))
diff --git a/src/ikarus.cxr.ss b/src/ikarus.pairs.ss
similarity index 99%
rename from src/ikarus.cxr.ss
rename to src/ikarus.pairs.ss
index 14cb7d1..44b851b 100644
--- a/src/ikarus.cxr.ss
+++ b/src/ikarus.pairs.ss
@@ -1,6 +1,6 @@
 
 
-(library (ikarus cxr)
+(library (ikarus pairs)
   (export
     car cdr caar cdar cadr cddr caaar cdaar cadar cddar caadr cdadr
     caddr cdddr caaaar cdaaar cadaar cddaar caadar cdadar caddar
diff --git a/src/makefile.ss b/src/makefile.ss
index af2a16c..34d40a0 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -26,10 +26,10 @@
       "ikarus.control.ss"
       "ikarus.collect.ss"
       "ikarus.predicates.ss"
+      "ikarus.pairs.ss"
       "ikarus.fixnums.ss"
       "ikarus.chars.ss"
       "ikarus.records.ss"
-      "ikarus.cxr.ss"
       "ikarus.strings.ss"
       "ikarus.vectors.ss"
       "ikarus.numerics.ss"