Use errortrace-key instead of DrRacket's own key.

drracket/drracket/private/debug.rkt

@@ -1,9 +1,9 @@
 #lang racket/base
 
-(require "drracket-errortrace-key.rkt"
-         racket/unit
+(require racket/unit
          racket/contract
          errortrace/stacktrace
+         errortrace/errortrace-key
          racket/class
          racket/path
          racket/bool
@@ -68,7 +68,7 @@
   (define (cms->srclocs cms)
     (map 
      errortrace-stack-item->srcloc
-     (continuation-mark-set->list cms drracket-errortrace-key)))
+     (continuation-mark-set->list cms errortrace-key)))
 
   ;; type debug-source = (union symbol (instanceof editor<%>))
 
@@ -718,7 +718,7 @@
       [else #f]))
   (define with-mark (make-with-mark special-source-handling-for-drr))
 
-  (define key-module-name 'drracket/private/drracket-errortrace-key)
+  (define key-module-name 'errortrace/errortrace-key)
 
   ;; current-backtrace-window : (union #f (instanceof frame:basic<%>))
   ;; the currently visible backtrace window, or #f, if none

drracket/drracket/private/eval-helpers-and-pref-init.rkt

@@ -10,7 +10,7 @@
          pkg/lib
          framework/preferences
          errortrace/stacktrace
-         "drracket-errortrace-key.rkt"
+         errortrace/errortrace-key
          (prefix-in *** '#%foreign) ;; just to make sure it is here
          "compiled-dir.rkt")
 
@@ -215,8 +215,10 @@
      (define line (or (syntax-line src-stx) 0))
      (define column (or (syntax-column src-stx) 0))
      (with-syntax ([expr expr]
-                   [mark (vector source line column position span)]
-                   [et-key (syntax-shift-phase-level #'drracket-errortrace-key phase)]
+                   ; errortrace/stacktrace puts the shrunken source expression at the car
+                   ; this needs to be alligned with errortrace-stack-item->srcloc
+                   [mark (list #f source line column position span)]
+                   [et-key (syntax-shift-phase-level #'errortrace-key phase)]
                    [wcm (syntax-shift-phase-level #'with-continuation-mark phase)]
                    [qte (syntax-shift-phase-level #'quote phase)])
        (syntax

drracket/drracket/private/eval.rkt

@@ -194,7 +194,7 @@
       (list ''#%foreign
             '(lib "mzlib/pconvert-prop.rkt")
             '(lib "planet/terse-info.rkt")
-            '(lib "drracket/private/drracket-errortrace-key.rkt")
+            '(lib "errortrace/errortrace-key.rkt")
             '(lib "simple-tree-text-markup/data.rkt")
             ; srclocs-special<%>
             '(lib "simple-tree-text-markup/port.rkt")

drracket/drracket/private/expanding-place.rkt

@@ -565,5 +565,5 @@
 (define profiling-enabled (make-parameter #f))
 (define (register-profile-start key) (void))
 (define (register-profile-done key start) (void))
-(define key-module-name 'drracket/private/drracket-errortrace-key)
+(define key-module-name 'errortrace/errortrace-key)
 (define-values/invoke-unit/infer stacktrace/errortrace-annotate/key-module-name@)

drracket/drracket/private/language-configuration.rkt

@@ -2016,8 +2016,8 @@
           (super on-execute setting run-in-user-thread)
           (run-in-user-thread
            (λ ()
-             (namespace-require 'drracket/private/drracket-errortrace-key)
-             (namespace-require '(for-syntax drracket/private/drracket-errortrace-key)))))
+             (namespace-require 'errortrace/errortrace-key)
+             (namespace-require '(for-syntax errortrace/errortrace-key)))))
         (super-new)))
 
     (define (r5rs-mixin %)

drracket/drracket/private/stack-checkpoint.rkt

@@ -1,11 +1,11 @@
 #lang racket/base
-(require "drracket-errortrace-key.rkt"
-         racket/class
+(require racket/class
          racket/contract
          racket/gui/base
          racket/math
          racket/match
          framework
+         errortrace/errortrace-key
          "interface.rkt")
 (module+ test (require (rename-in rackunit [check r:check]) racket/list racket/bool))
 
@@ -171,17 +171,14 @@
 
 (define (cms->errortrace-viewable-stack cms interesting-editors
                                         #:share-cache [a-viewable-stack #f])
-  (build-viewable-stack (continuation-mark-set->list cms drracket-errortrace-key)
+  (build-viewable-stack (continuation-mark-set->list cms errortrace-key)
                         errortrace-stack-item->srcloc
                         interesting-editors
                         a-viewable-stack))
 
+; this needs to be alligned with make-with-mark
 (define (errortrace-stack-item->srcloc x)
-  (make-srcloc (vector-ref x 0)
-               (vector-ref x 1)
-               (vector-ref x 2)
-               (vector-ref x 3)
-               (vector-ref x 4)))
+  (apply make-srcloc (cdr x)))
 
 (define (cms->builtin-viewable-stack cms interesting-editors
                                      #:share-cache [a-viewable-stack #f])