diff --git a/src/ikarus.boot b/src/ikarus.boot
index 57c7764..0d8643d 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/makefile.ss b/src/makefile.ss
index ba573a7..a609b2f 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -78,17 +78,13 @@
       [or                (macro . or)]))
 
   (define ikarus-system-primitives
-    '())
+    '(print-greeting))
 
   (define (make-collection)
     (let ([set '()])
-      (define (set-cons x ls)
-        (cond
-          [(memq x ls) ls]
-          [else (cons x ls)]))
       (case-lambda
         [() set]
-        [(x) (set! set (set-cons x set))])))
+        [(x) (set! set (cons x set))])))
 
   (define (make-system-data subst env)
     (let ([export-subst    (make-collection)] 
@@ -149,16 +145,6 @@
        (pretty-print code)
        code))
 
- ; (define (env->primlocs env)
- ;   (let ([locs (make-collection)])
- ;     (for-each 
- ;       (lambda (x)
- ;         (let ([label (car x)] [binding (cdr x)])
- ;           (let ([type (car binding)] [value (cdr binding)])
- ;             (case type
- ;               [(global) (locs (cons 
-
-
   (define (expand-all files)
     (let ([code* '()]
           [subst '()]