Index: trackback.scm
==================================================================
--- trackback.scm
+++ trackback.scm
@@ -145,14 +145,16 @@
             (have (alist-ref (string->symbol in-procname) xref eq? #f))
             (lookup (lambda (path procname depth)
                       (let* ((upcone-temp (filter (lambda (x)
                                                     (eq? procname (car x)))
                                                   xref))
-                             (upcone (begin
-                                       (cond
-                                        ((null? upcone-temp) '())
-                                        (else (cdar upcone-temp)))))
+                             (upcone-temp2 (cond
+                                            ((null? upcone-temp) '())
+                                            (else (cdar upcone-temp))))
+                             (upcone (filter
+                                      (lambda (x) (not (eq? x procname)))
+                                      upcone-temp2))
                              (uppath (cons procname path))
                              (updepth (add1 depth)))
                         (if (null? upcone)
                             (print  uppath)
                             (for-each (lambda (x)