diff --git a/bootstrapped-primitives.rkt b/bootstrapped-primitives.rkt
index 049a0e3..a7c0f3d 100644
--- a/bootstrapped-primitives.rkt
+++ b/bootstrapped-primitives.rkt
@@ -84,7 +84,6 @@
    (make-bootstrapped-primitive-code 
     'map 
     '(letrec ([map (lambda (f l)
-                     (displayln "in map")
                      (if (null? l)
                          null
                          (cons (f (car l))
diff --git a/simulator/simulator.rkt b/simulator/simulator.rkt
index 42f7e37..1af0a53 100644
--- a/simulator/simulator.rkt
+++ b/simulator/simulator.rkt
@@ -261,9 +261,10 @@
            (let: ([a-top : toplevel (ensure-toplevel (env-ref m (CheckToplevelBound!-depth op)))])
                  (when (> (CheckToplevelBound!-pos op)
                           (length (toplevel-vals a-top)))
-                   (printf "ERROR: toplevel is length ~s, but trying to refer to ~s"
+                   (printf "ERROR: toplevel is length ~s, but trying to refer to ~s.\n\n~s"
                            (length (toplevel-vals a-top))
-                           (CheckToplevelBound!-pos op)))
+                           (CheckToplevelBound!-pos op)
+                           (toplevel-names a-top)))
                  (cond
                    [(undefined? (list-ref (toplevel-vals a-top) (CheckToplevelBound!-pos op)))
                     (error 'check-toplevel-bound! "Unbound identifier ~s" 
@@ -316,6 +317,7 @@
            (let: ([a-proc : SlotValue (machine-proc m)])
                  (cond
                    [(closure? a-proc)
+                    (printf "installing values ~s\n" (closure-vals a-proc))
                     (env-push-many! m (closure-vals a-proc))]
                    [else
                     (error 'step-perform "Procedure register doesn't hold a procedure: ~s"
diff --git a/test-earley.rkt b/test-earley.rkt
index cbc62cc..072ada0 100644
--- a/test-earley.rkt
+++ b/test-earley.rkt
@@ -54,5 +54,5 @@
 
 (test (read (open-input-file "tests/earley/earley.sch"))
       (port->string (open-input-file "tests/earley/expected.txt"))
-      ;;#:debug? #t
+      #:debug? #t
       )