diff --git a/jumpforth.S b/jumpforth.S
index 76e4a7b..de2513b 100644
--- a/jumpforth.S
+++ b/jumpforth.S
@@ -923,7 +923,7 @@ defcode LSHIFT
 /* ( u1 u -- u2 ) Logical (unsigned) shift right by u bits */
 defcode RSHIFT
    pop %ecx
-   shll %cl,(%esp)
+   shrl %cl,(%esp)
    NEXT
 
 .macro defzcmp label,opcode,name="\label",flags=0