diff --git a/racket/src/racket/src/read.c b/racket/src/racket/src/read.c
index 7840bcd046..9141f63ed2 100644
--- a/racket/src/racket/src/read.c
+++ b/racket/src/racket/src/read.c
@@ -2042,7 +2042,9 @@ read_inner_inner(Scheme_Object *port, Scheme_Object *stxsrc, Scheme_Hash_Table *
     if ( (table && readtable_kind(table, next, params) & READTABLE_WHITESPACE)
          || (!table && scheme_isspace(next)) ) {
       scheme_getc_special_ok(port); continue; }
-    if ( next == '.' ) { scheme_getc_special_ok(port); found_dot = 1; break; }
+    if ( (table && readtable_effective_char(table, next) == '.')
+         || (!table && next == '.') ) {
+      scheme_getc_special_ok(port); found_dot = 1; break; }
     break;
   }