diff --git a/quad/quad/quad.rkt b/quad/quad/quad.rkt
index d417dbe1..5d5b9b15 100644
--- a/quad/quad/quad.rkt
+++ b/quad/quad/quad.rkt
@@ -6,7 +6,7 @@
 
 (define (size q)
   (match (quad-size q)
-    [(? procedure? proc) #R proc (proc q)]
+    [(? procedure? proc) proc (proc q)]
     [(? promise? prom) (force prom)]
     [val val]))