* new-cafe and load use eval-top-level now.

src/libcafe.ss

@@ -99,7 +99,7 @@ description:
 
   (define default-cafe-eval
     (lambda (x) 
-      (chi-top-library x)))
+      (eval-top-level x)))
 
   (primitive-set! 'new-cafe
     (case-lambda

src/libtokenizer.ss

@@ -791,7 +791,7 @@
   (let ()
     (define load-handler
       (lambda (x)
-        (chi-top-library x)))
+        (eval-top-level x)))
     (define read-and-eval
       (lambda (p eval-proc)
         (let ([x (my-read p)])