diff --git a/collects/typed-scheme/utils/syntax-traversal.ss b/collects/typed-scheme/utils/syntax-traversal.ss
index cfdaf4178f..e56836e9a7 100644
--- a/collects/typed-scheme/utils/syntax-traversal.ss
+++ b/collects/typed-scheme/utils/syntax-traversal.ss
@@ -45,9 +45,7 @@
 ;; Look for (the outermost) syntax in `orig' that has the same
 ;; location as `lookfor' which is coming from the expanded `orig',
 ;; given in `expanded'.
-(define (look-for-in-orig orig expanded lookfor) lookfor)
-
-#|
+(define (look-for-in-orig orig expanded lookfor)
   (define src (syntax-source orig))
   ;(printf "orig : ~a~n" (unwind orig))
   ;(printf "expanded : ~a~n" expanded)
@@ -73,7 +71,4 @@
                    enclosing)
             #;(printf "chose branch two ~a~n" enclosing))))))
 
-;(trace look-for-in-orig)
-|#
-