diff --git a/scheme/read.sld b/scheme/read.sld
index 3c64586a..8310117f 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -1,7 +1,8 @@
 (define-library (scheme read)
   (import (scheme base))
   (export
-    read  ;; what about issues with read/cyc-read in csi???
+    ;read  ;; what about issues with read/cyc-read in csi???
+    cyc-read ;; try this first, but it needs to go away!!!
     read-all
   )
   (include "parser.scm")