diff --git a/racket/collects/racket/file.rkt b/racket/collects/racket/file.rkt
index 206c85fdc4..aca31018d3 100644
--- a/racket/collects/racket/file.rkt
+++ b/racket/collects/racket/file.rkt
@@ -244,11 +244,14 @@
   (parameterize ([read-case-sensitive #f]
                  [read-square-bracket-as-paren #t]
                  [read-curly-brace-as-paren #t]
+                 [read-square-bracket-with-tag #f]
+                 [read-curly-brace-with-tag #f]
                  [read-accept-box #t]
                  [read-accept-compiled #f]
                  [read-accept-bar-quote #t]
                  [read-accept-graph #t]
                  [read-decimal-as-inexact #t]
+                 [read-cdot #f]
                  [read-accept-dot #t]
                  [read-accept-infix-dot #t]
                  [read-accept-quasiquote #t]
diff --git a/racket/src/racket/src/portfun.c b/racket/src/racket/src/portfun.c
index ca962a45bc..0f6c4b0c13 100644
--- a/racket/src/racket/src/portfun.c
+++ b/racket/src/racket/src/portfun.c
@@ -4844,6 +4844,9 @@ static Scheme_Object *default_load(int argc, Scheme_Object *argv[])
     config = scheme_extend_config(config, MZCONFIG_CAN_READ_LANG, scheme_true);
     config = scheme_extend_config(config, MZCONFIG_READ_DECIMAL_INEXACT, scheme_true);
     config = scheme_extend_config(config, MZCONFIG_READTABLE, scheme_false);
+    config = scheme_extend_config(config, MZCONFIG_READ_CDOT, scheme_false);
+    config = scheme_extend_config(config, MZCONFIG_SQUARE_BRACKETS_ARE_TAGGED, scheme_false);
+    config = scheme_extend_config(config, MZCONFIG_CURLY_BRACES_ARE_TAGGED, scheme_false);
   } else {
     config = scheme_extend_config(config, MZCONFIG_CAN_READ_COMPILED, scheme_true);
     config = scheme_extend_config(config, MZCONFIG_CAN_READ_READER, scheme_true);
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index a8da4cf8ae..5191bd96c0 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -331,11 +331,14 @@
 "(parameterize((read-case-sensitive #t)"
 "(read-square-bracket-as-paren #t)"
 "(read-curly-brace-as-paren #t)"
+"(read-square-bracket-with-tag #f)"
+"(read-curly-brace-with-tag #f)"
 "(read-accept-box #t)"
 "(read-accept-compiled #f)"
 "(read-accept-bar-quote #t)"
 "(read-accept-graph #t)"
 "(read-decimal-as-inexact #t)"
+"(read-cdot #f)"
 "(read-accept-dot #t)"
 "(read-accept-infix-dot #t)"
 "(read-accept-quasiquote #t)"
@@ -527,7 +530,8 @@
 "(not(car a)))))"
 "(define-values(get-linked-collections)"
 "(lambda(links-path)"
-"(call-with-escape-continuation (lambda(esc)"
+"(call-with-escape-continuation"
+"(lambda(esc)"
 "(define-values(make-handler)"
 "(lambda(ts)"
 "(lambda(exn)"
diff --git a/racket/src/racket/src/startup.rktl b/racket/src/racket/src/startup.rktl
index d830a9998c..79320b2e43 100644
--- a/racket/src/racket/src/startup.rktl
+++ b/racket/src/racket/src/startup.rktl
@@ -391,11 +391,14 @@
         (parameterize ([read-case-sensitive #t]
                        [read-square-bracket-as-paren #t]
                        [read-curly-brace-as-paren #t]
+                       [read-square-bracket-with-tag #f]
+                       [read-curly-brace-with-tag #f]
                        [read-accept-box #t]
                        [read-accept-compiled #f]
                        [read-accept-bar-quote #t]
                        [read-accept-graph #t]
                        [read-decimal-as-inexact #t]
+                       [read-cdot #f]
                        [read-accept-dot #t]
                        [read-accept-infix-dot #t]
                        [read-accept-quasiquote #t]
diff --git a/racket/src/racket/src/thread.c b/racket/src/racket/src/thread.c
index 8957fe383b..3fedeaea0c 100644
--- a/racket/src/racket/src/thread.c
+++ b/racket/src/racket/src/thread.c
@@ -7977,6 +7977,10 @@ static void make_initial_config(Scheme_Thread *p)
   init_param(cells, paramz, MZCONFIG_CURLY_BRACES_ARE_PARENS, (scheme_curly_braces_are_parens
 							      ? scheme_true : scheme_false));
 
+  init_param(cells, paramz, MZCONFIG_SQUARE_BRACKETS_ARE_TAGGED, scheme_false);
+  init_param(cells, paramz, MZCONFIG_CURLY_BRACES_ARE_TAGGED, scheme_false);
+  init_param(cells, paramz, MZCONFIG_READ_CDOT, scheme_false);
+  
   init_param(cells, paramz, MZCONFIG_ERROR_PRINT_WIDTH, scheme_make_integer(256));
   init_param(cells, paramz, MZCONFIG_ERROR_PRINT_CONTEXT_LENGTH, scheme_make_integer(16));
   init_param(cells, paramz, MZCONFIG_ERROR_PRINT_SRCLOC, scheme_true);