diff --git a/.bzrignore b/.bzrignore
index 6146139..1415f0f 100644
--- a/.bzrignore
+++ b/.bzrignore
@@ -7,3 +7,4 @@
 ./ikarus.boot.back
 .DS_Store
 ../src/ikarus.boot.back
+./ikarus.boot.back
diff --git a/src/ikarus.boot b/src/ikarus.boot
index d3b34da..042e191 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libtoplevel.ss b/src/libtoplevel.ss
index 5be0b17..1ead7bd 100644
--- a/src/libtoplevel.ss
+++ b/src/libtoplevel.ss
@@ -54,8 +54,20 @@
       (putprop '|#system| '*sc-expander* sysmod)
       (putprop 'scheme '*sc-expander* schmod))))
 
-(begin
+(let-values ([(files args)
+              (let f ([args (command-line-arguments)])
+                (cond
+                  [(null? args) (values '() '())]
+                  [(string=? (car args) "--")
+                   (values '() (cdr args))]
+                  [else
+                   (let-values ([(f* a*) (f (cdr args))])
+                     (values (cons (car args) f*) a*))]))])
+  (current-eval compile)
+  (command-line-arguments args)
   (printf "Petite Ikarus Scheme (Build ~a)\n" (compile-time-date-string))
   (display "Copyright (c) 2006 Abdulaziz Ghuloum\n\n")
-  (current-eval compile)
+  (for-each load files)
   (new-cafe))
+
+