X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/958694375564578103bb053d3845f3d4a89b8e4e..e083d7526209d0faf2ac0fabbc1a1e59b9974ce2:/client-libraries/tcl/redis.tcl

diff --git a/client-libraries/tcl/redis.tcl b/client-libraries/tcl/redis.tcl
index 6cc713d2..636444de 100644
--- a/client-libraries/tcl/redis.tcl
+++ b/client-libraries/tcl/redis.tcl
@@ -19,7 +19,7 @@ array set ::redis::bulkarg {}
 
 # Flag commands requiring last argument as a bulk write operation
 foreach redis_bulk_cmd {
-    set setnx rpush lpush lset lrem sadd srem sismember echo
+    set setnx rpush lpush lset lrem sadd srem sismember echo getset smove
 } {
     set ::redis::bulkarg($redis_bulk_cmd) {}
 }
@@ -106,6 +106,6 @@ proc ::redis::redis_read_reply fd {
         - {return -code error [redis_read_line $fd]}
         $ {redis_bulk_read $fd}
         * {redis_multi_bulk_read $fd}
-        default {return -code error "Bad protocl, $type as reply type byte"}
+        default {return -code error "Bad protocol, $type as reply type byte"}
     }
 }