diff --git a/scheme/env/space.scm b/scheme/env/space.scm
index 525fa53..2e08f2c 100644
--- a/scheme/env/space.scm
+++ b/scheme/env/space.scm
@@ -8,7 +8,7 @@
 (define length-procedures
   (do ((i (- stob-count 1) (- i 1))
        (l '() (cons (eval `(lap *length ()
-                                (check-nargs= 1)
+                                (protocol 1)
                                 (pop)
                                 (stored-object-length
                                   ,(enumerand->name i stob))
diff --git a/scheme/env/traverse.scm b/scheme/env/traverse.scm
index 9613853..cc667ac 100644
--- a/scheme/env/traverse.scm
+++ b/scheme/env/traverse.scm
@@ -15,7 +15,6 @@
 (define *traverse-count* 0)
 
 (define (start-over)		
-  (flush-the-symbol-table!)
   (set! *mark-table* (make-table hash))
   (set! *interesting-table* (make-table))
   (set! *traverse-count* 0))