diff --git a/src/goldberg/variations/canone_alla_quarta.clj b/src/goldberg/variations/canone_alla_quarta.clj
index 028ee32..51ca28b 100644
--- a/src/goldberg/variations/canone_alla_quarta.clj
+++ b/src/goldberg/variations/canone_alla_quarta.clj
@@ -33,8 +33,8 @@
     (sin-osc freq1)
     (sin-osc freq2)))
 
-(definst beep [frequency 440 duration 1.0]
-  (let [envelope (env-gen (line 1.0 0 duration FREE))]
+(definst beep [frequency 440 duration 1]
+  (let [envelope (line 1 0 duration :action FREE)]
           (* envelope (sin-osc frequency))))
 
 ;(tone 300)