diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt
index 098b826370..0b023515b1 100644
--- a/collects/drracket/private/syncheck/traversals.rkt
+++ b/collects/drracket/private/syncheck/traversals.rkt
@@ -407,7 +407,7 @@
                (loop (cdr prop))]
               [(identifier? prop)
                (add-origins prop disappaeared-uses)
-               (add-id binders prop #:add-if-not-original? #T)])))))
+               (add-id binders prop)])))))
     
     ;; add-disappeared-uses : syntax id-set -> void
     (define (add-disappeared-uses stx id-set)
@@ -419,7 +419,7 @@
                (loop (car prop))
                (loop (cdr prop))]
               [(identifier? prop)
-               (add-id id-set prop #:add-if-not-original? #t)])))))
+               (add-id id-set prop)])))))
     
     ;; add-require-spec : hash-table[sexp[require-spec] -o> (listof syntax)]
     ;;                 -> sexp[require-spec]
@@ -1183,9 +1183,8 @@
           (free-identifier-mapping-put! mapping id new))))
     
     ;; add-id : id-set identifier -> void
-    (define (add-id mapping id #:add-if-not-original? [add-if-not-original? #f])
-      (when (or add-if-not-original?
-                (syntax-original? id))
+    (define (add-id mapping id)
+      (when (syntax-original? id)
         (let* ([old (free-identifier-mapping-get mapping id (λ () '()))]
                [new (cons id old)])
           (free-identifier-mapping-put! mapping id new))))