diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 22489dc1b0..ec69fb04ce 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -859,6 +859,10 @@ module TkCore
     tk_call 'tk_getSaveFile', *hash_kv(keys)
   end
 
+  def chooseDirectory(keys = nil)
+    tk_call 'tk_chooseDirectory', *hash_kv(keys)
+  end
+
   def chooseColor(keys = nil)
     tk_call 'tk_chooseColor', *hash_kv(keys)
   end