diff --git a/example/defstruct.retro b/example/defstruct.retro
index 8b83d3c..12df4a6 100644
--- a/example/defstruct.retro
+++ b/example/defstruct.retro
@@ -10,7 +10,7 @@ This can be useful, so I'm doing something similar here.
   :make-struct (ns-)   d:create , [ here swap fetch allot ] does ;
 ---reveal---
   :defstruct (sa-)
-    dup a:length
+    &s:keep dip dup a:length
     [ n:dec swap
       [ 'ab 'aabab reorder
         '@ s:append [ fetch + fetch ] make-helper