diff --git a/lib/rpl/words/stack.rb b/lib/rpl/words/stack.rb
index 49e9e76..e0742a0 100644
--- a/lib/rpl/words/stack.rb
+++ b/lib/rpl/words/stack.rb
@@ -27,9 +27,7 @@ module RplLang
         @dictionary.add_word( ['drop2'],
                               category,
                               '( a b -- ) drop first two stack elements',
-                              proc do
-                                run( '2 dropn' )
-                              end )
+                              Types.new_object( RplProgram, '« 2 dropn »' ) )
 
         @dictionary.add_word( ['dropn'],
                               category,