diff --git a/prometheus-impl.scm b/prometheus-impl.scm
index 5613a01a..b2c4394a 100644
--- a/prometheus-impl.scm
+++ b/prometheus-impl.scm
@@ -111,9 +111,9 @@
 
 (define-syntax define-method
   (syntax-rules ()
-    ((_ (obj 'message self resend args ...)
+    ((_ (obj message self resend args ...)
         body1 body ...)
-     (obj 'add-method-slot! 'message
+     (obj 'add-method-slot! `message
           (lambda (self resend args ...)
             body1 body ...)))))
 
@@ -122,7 +122,7 @@
     ((_ name (creation-parent (parent-name parent-object) ...)
         slots ...)
      (define name (let ((o (creation-parent 'clone)))
-                    (o 'add-parent-slot! 'parent-name parent-object)
+                    (o 'add-parent-slot! `parent-name parent-object)
                     ...
                     (define-object/add-slots! o slots ...)
                     o)))))
@@ -134,16 +134,16 @@
     ((_ o ((method-name . method-args) body ...)
         slots ...)
      (begin
-       (o 'add-method-slot! 'method-name (lambda method-args
+       (o 'add-method-slot! `method-name (lambda method-args
                                            body ...))
        (define-object/add-slots! o slots ...)))
     ((_ o (slot-getter slot-setter slot-value)
         slots ...)
      (begin
-       (o 'add-value-slot! 'slot-getter 'slot-setter slot-value)
+       (o 'add-value-slot! `slot-getter `slot-setter slot-value)
        (define-object/add-slots! o slots ...)))
     ((_ o (slot-getter slot-value)
         slots ...)
      (begin
-       (o 'add-value-slot! 'slot-getter slot-value)
+       (o 'add-value-slot! `slot-getter slot-value)
        (define-object/add-slots! o slots ...)))))