diff --git a/collects/macro-debugger/syntax-browser/partition.rkt b/collects/macro-debugger/syntax-browser/partition.rkt
index b2a7367..10a53e8 100644
--- a/collects/macro-debugger/syntax-browser/partition.rkt
+++ b/collects/macro-debugger/syntax-browser/partition.rkt
@@ -19,7 +19,7 @@
     (define next-number 0)
 
     (define/public (get-partition stx)
-      (let ([marks (simplify-marks (get-marks stx))])
+      (let ([marks (get-marks stx)])
         (or (hash-ref simplified marks #f)
             (let ([n next-number])
               (hash-set! simplified marks n)
diff --git a/collects/macro-debugger/syntax-browser/properties.rkt b/collects/macro-debugger/syntax-browser/properties.rkt
index 77695d1..58dcaef 100644
--- a/collects/macro-debugger/syntax-browser/properties.rkt
+++ b/collects/macro-debugger/syntax-browser/properties.rkt
@@ -248,7 +248,7 @@
     ;; display-marks : syntax -> void
     (define/private (display-marks stx)
       (display "Marks: " key-sd)
-      (display (format "~s\n" (simplify-marks (get-marks stx))) #f)
+      (display (format "~s\n" (get-marks stx)) #f)
       (display "\n" #f))
 
     ;; display-taint : syntax -> void
diff --git a/collects/macro-debugger/util/stxobj.rkt b/collects/macro-debugger/util/stxobj.rkt
index 1650f6e..95d7aad 100644
--- a/collects/macro-debugger/util/stxobj.rkt
+++ b/collects/macro-debugger/util/stxobj.rkt
@@ -8,6 +8,7 @@
   (get-ffi-obj "scheme_stx_extract_marks" lib
                (_fun _scheme -> _scheme)))
 
+#|
 (define (simplify-marks marklist)
   (simplify* (sort marklist <)))
 
@@ -22,9 +23,10 @@
                marklist
                (cons (car marklist) result)))]))
 
+(provide simplify-marks)
+|#
+
 (provide/contract
  [get-marks
   ;; syntax? check needed for safety!
   (c:-> syntax? any)])
-
-(provide simplify-marks)