1 files changed, 2 insertions, 2 deletions
diff --git a/trace.scm b/trace.scm
index a075c77..0aa9ab5 100644
--- a/trace.scm
+++ b/trace.scm
@@ -50,8 +50,8 @@
 	(eq? eq?) (+ +) (zero? zero?) (modulo modulo)
 	(apply apply) (display display) (qpn qpn) (list list) (cons cons)
 
-	(CALL (string->symbol "CALL"))
-	(RETN (string->symbol "RETN")))
+	(CALL 'CALL)			;(string->symbol "CALL")
+	(RETN 'RETN))			;(string->symbol "RETN")
     (lambda (how function . optname)
       (set! trace:indent 0)
       (let ((name (if (null? optname) function (car optname))))