diff --git a/parse-bytecode-5.1.1.rkt b/parse-bytecode-5.1.1.rkt
index 50ca13c..9c7a4b9 100644
--- a/parse-bytecode-5.1.1.rkt
+++ b/parse-bytecode-5.1.1.rkt
@@ -600,8 +600,8 @@
 
 (define (parse-topsyntax expr)
   ;; We should not get into this because we're only parsing the runtime part of
-  ;; the bytecode.
-  (error 'fixme-topsyntax))
+  ;; the bytecode.  Treated as a no-op.
+  (make-Constant (void)))
 
 
 (define (parse-application expr)
diff --git a/tests/test-earley.rkt b/tests/test-earley.rkt
index 3ea5975..bc4d1ac 100644
--- a/tests/test-earley.rkt
+++ b/tests/test-earley.rkt
@@ -5,7 +5,7 @@
          "test-helpers.rkt"
          racket/runtime-path)
 
-(define-runtime-path earley-file-path (build-path "earley"))
+(define-runtime-path earley-path (build-path "earley"))
 
 
   
diff --git a/tests/test-parse-bytecode-on-collects.rkt b/tests/test-parse-bytecode-on-collects.rkt
new file mode 100644
index 0000000..e0a3ac1
--- /dev/null
+++ b/tests/test-parse-bytecode-on-collects.rkt
@@ -0,0 +1,23 @@
+#lang racket/base
+
+(require "../parse-bytecode.rkt"
+         racket/path)
+
+(define collects-dir 
+  (normalize-path
+   (let ([p (find-system-path 'collects-dir)])
+     (cond
+       [(relative-path? p)
+        (find-executable-path (find-system-path 'exec-file)
+                              (find-system-path 'collects-dir))]
+       [else
+        p]))))
+
+
+(for ([path (in-directory)])
+  (when (regexp-match? #rx"[.]rkt$" path)
+    (printf "parsing file: ~a... " path)
+    (let ([start-time (current-inexact-milliseconds)])
+      (void (parse-bytecode path))
+      (let ([end-time (current-inexact-milliseconds)])
+        (printf "~a msecs\n" (inexact->exact (floor (- end-time start-time))))))))
\ No newline at end of file