@@ -46,11 +46,11 @@
                          #f)]
                     [else #f] ) scm-tree))))
     procs))
 
 
-;; given a sexp, return a flat lost of atoms in that sexp
+;; given a sexp, return a flat list of atoms in that sexp
 (define (get-atoms-in-body body)
   (cond
    ((null? body) '())
    ((atom? body) (list body))
    (else