diff --git a/scheme/read.sld b/scheme/read.sld
index dbd5c3d4..c5eabe64 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -1,9 +1,10 @@
 (define-library (scheme read)
   (import (scheme base))
   (export
-    ;read  ;; what about issues with read/cyc-read in csi???
-    cyc-read ;; try this first, but it needs to go away!!!
+    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")
-  (begin))
+  (begin
+    (define read cyc-read)))