diff --git a/examples/dns-example-1/dns.ss b/examples/dns-example-1/dns.ss
index 9e94e5df..d90e356f 100644
--- a/examples/dns-example-1/dns.ss
+++ b/examples/dns-example-1/dns.ss
@@ -61,10 +61,10 @@
   )
 )
 
-(define (post:name:update refchan)
+(define (post:name:update)
   (begin
     (local tx (create:name:update HOST))
-    (hbs2:refchan:tx:propose refchan tx)
+    (hbs2:refchan:tx:propose REFCHAN tx)
   )
 )