diff --git a/irteus/test/read-line.l b/irteus/test/read-line.l
index 18246bd12..ff3979238 100644
--- a/irteus/test/read-line.l
+++ b/irteus/test/read-line.l
@@ -16,5 +16,12 @@
   ;; (assert (= (test-read-line 8192) 8192) "read-line with ~A char" 8192) ;; tempolarily comment out
   )
 
+(deftest test-read-gensym
+  (let ((g (gensym))
+        (*print-circle* t))
+    (assert
+     (apply #'eq (read-from-string (format nil "~S" (list g g))))
+     "Unable to read uninterned symbol")))
+
 (run-all-tests)
 (exit)