diff --git a/lib/ikarus.boot b/lib/ikarus.boot
index 2b64631..203590e 100644
Binary files a/lib/ikarus.boot and b/lib/ikarus.boot differ
diff --git a/lib/libtoplevel.ss b/lib/libtoplevel.ss
index dec4bf5..94ef325 100644
--- a/lib/libtoplevel.ss
+++ b/lib/libtoplevel.ss
@@ -71,15 +71,16 @@
                    (let-values ([(f* script a*) (f (cdr args))])
                      (values (cons (car args) f*) script a*))]))])
   (current-eval compile)
-  (command-line-arguments args)
   (cond
     [script ; no greeting, no cafe
+     (command-line-arguments (cons script args))
      (for-each load files)
      (load script)
      (exit 0)]
     [else
      (printf "Ikarus Scheme (Build ~a)\n" (compile-time-date-string))
      (display "Copyright (c) 2006 Abdulaziz Ghuloum\n\n")
+     (command-line-arguments args)
      (for-each load files)
      (new-cafe)]))