diff --git a/implementations/racket/preserves/main.rkt b/implementations/racket/preserves/main.rkt
index 259c489..ebbf90b 100644
--- a/implementations/racket/preserves/main.rkt
+++ b/implementations/racket/preserves/main.rkt
@@ -496,6 +496,8 @@
 (define (string->preserve s)
   (define p (open-input-string s))
   (define v (read-preserve p))
+  (when (eof-object? v)
+    (parse-error* p "Unexpected end of input"))
   (skip-whitespace* p)
   (when (not (eof-object? (peek-char p)))
     (parse-error* p "Unexpected text following preserve"))