diff --git a/collects/scheme/private/kernstruct.ss b/collects/scheme/private/kernstruct.ss
index ad51cbab2a..7abba11e65 100644
--- a/collects/scheme/private/kernstruct.ss
+++ b/collects/scheme/private/kernstruct.ss
@@ -232,16 +232,16 @@
         (quote-syntax make-date)
         (quote-syntax date?)
         (list
-         (quote-syntax time-zone-offset)
-         (quote-syntax dst?)
-         (quote-syntax year-day)
-         (quote-syntax week-day)
-         (quote-syntax year)
-         (quote-syntax month)
-         (quote-syntax day)
-         (quote-syntax hour)
-         (quote-syntax minute)
-         (quote-syntax second))
+         (quote-syntax date-time-zone-offset)
+         (quote-syntax date-dst?)
+         (quote-syntax date-year-day)
+         (quote-syntax date-week-day)
+         (quote-syntax date-year)
+         (quote-syntax date-month)
+         (quote-syntax date-day)
+         (quote-syntax date-hour)
+         (quote-syntax date-minute)
+         (quote-syntax date-second))
         '(#f #f #f #f #f #f #f #f #f #f)
         #t))))
   (define-syntax srcloc
@@ -252,10 +252,10 @@
         (quote-syntax make-srcloc)
         (quote-syntax srcloc?)
         (list
-         (quote-syntax span)
-         (quote-syntax position)
-         (quote-syntax column)
-         (quote-syntax line)
-         (quote-syntax source))
+         (quote-syntax srcloc-span)
+         (quote-syntax srcloc-position)
+         (quote-syntax srcloc-column)
+         (quote-syntax srcloc-line)
+         (quote-syntax srcloc-source))
         '(#f #f #f #f #f)
         #t)))))