diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss
index a7029b2010..637bc1c582 100644
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@@ -204,8 +204,8 @@ TODO
                       (let ([source (srcloc-source srcloc)]
                             [pos (srcloc-position srcloc)]
                             [span (srcloc-span srcloc)])
-                        (and source pos span
-                             (cons source (cons pos span)))))
+                        (and source pos span 
+                             srcloc)))
                     srclocs-stack))]
              [src-locs (if (exn:srclocs? exn)
                            ((exn:srclocs-accessor exn) exn)