diff --git a/scheme/read.sld b/scheme/read.sld
index a791a98d..91fe984c 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -8,7 +8,7 @@
 ;;;;
 (define-library (scheme read)
   (import (scheme base)
-          (scheme write)
+          ;(scheme write)
           (scheme char))
   (export
     read
@@ -134,7 +134,7 @@
 
 (define (parse fp)
   (let ((token (read-token fp)))
-    (display "//")(write `(token ,token)) (newline)
+    ;;(display "//")(write `(token ,token)) (newline)
     (cond
       ((Cyc-opaque? token)
        (cond