diff --git a/src/bdberl.erl b/src/bdberl.erl
index 2bcd304..c63b6c9 100644
--- a/src/bdberl.erl
+++ b/src/bdberl.erl
@@ -120,7 +120,7 @@ put(Db, Key, Value, Opts) ->
     do_put(?CMD_PUT, Db, Key, Value, Opts).
 
 put_r(Db, Key, Value) ->
-    put(Db, Key, Value, []).
+    put_r(Db, Key, Value, []).
 
 put_r(Db, Key, Value, Opts) ->
     case put(Db, Key, Value, Opts) of