Revive these wonderful debugging tools.

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))

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))