diff --git a/src/ikarus.boot b/src/ikarus.boot
index e82d454..8e2f338 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.syntax.ss b/src/ikarus.syntax.ss
index 96951bb..4ced4e8 100644
--- a/src/ikarus.syntax.ss
+++ b/src/ikarus.syntax.ss
@@ -1913,8 +1913,8 @@
                    [(define) 
                     (let-values ([(id rhs) (parse-define e)])
                       (when (bound-id-member? id kwd*) 
-                        (stx-error id "cannt redefine identifier"))
-                      (when (bound-id-member? id lhs*) 
+                        (stx-error id "cannot redefine identifier"))
+                      (when (bound-id-member? id lhs*)
                         (stx-error id "multiple definition"))
                       (let ([lex (gen-lexical id)]
                             [lab (gen-label id)])
@@ -2194,7 +2194,8 @@
               (f (cdr int*) (cdr ext*) 
                  (cons (cons (car ext*) label) subst)
                  (cons (cons label (cons 'global (binding-value b))) env))]
-             [else (error #f "cannot export ~s of type ~s" sym type)]))])))
+             [else (error #f "cannot export ~s of type ~s, value=~s" sym type
+                          (binding-value b))]))])))
   (define generate-temporaries
     (lambda (ls)
       (unless (list? ls)