diff --git a/stolen-treasure.tcl b/stolen-treasure.tcl
index 665595f..0a5f5ad 100644
--- a/stolen-treasure.tcl
+++ b/stolen-treasure.tcl
@@ -11116,3 +11116,4 @@ proc addgoon str {lappend ::goon_dict $str; return ""}
 proc okeyloot {} {return "The [color blue]Okeys[color] left a chest! You open the chest. Inside was [articleize [choose [blackitem] [mroach_item] [ww_item] [faglame] [rumored_apple_product] [cooking_appliance] [sexpart] [food_word] [drink] [weapon] [niggerword] [name] [al_man_word] [ethnic_group] [sex_fluid] [drug_word] [marginalize] [shsc_word] [animal_word] [furry_noun] [dndname] [undesirables]]]!"}
 proc liberalagenda:event {} { subst [lindex_random $::liberalagenda] }
 proc classism {} {. [british_person] would never be caught dead eating [food_word] at 5 PM}
+proc yield args { uplevel 2 [list apply [list let [uplevel block]] $args] }