diff --git a/scheme/eval.sld b/scheme/eval.sld
index 71c04bd6..45f69be6 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -11,7 +11,7 @@
     ;(scheme cyclone libraries) ;; for handling import sets
     (scheme base)
     (scheme file)
-    (scheme write) ;; Only used for debugging
+    ;(scheme write) ;; Only used for debugging
     (scheme read))
   (export
     ;environment
@@ -252,8 +252,7 @@
        primitive-procedures))
 
 (define (primitive-procedure-objects)
-  (write `(DEBUG ,primitive-procedures))
-  (map (lambda (proc) (write `(DEBUG2 ,proc)) (list 'primitive (cadr proc)))
+  (map (lambda (proc) (list 'primitive (cadr proc)))
        primitive-procedures))
 
 (define (apply-primitive-procedure proc args)