diff --git a/test.scm b/test.scm
index 40544a0..fd825e4 100644
--- a/test.scm
+++ b/test.scm
@@ -81,10 +81,14 @@
 (run-test "non-zero exit" "|100 #110f DEO BRK" '() "" 17 "" "")
 (run-test "echo A to stdout" "|100 #4118 DEO #800f DEO BRK" '() "" 0 "A" "")
 (run-test "echo A to stderr" "|100 #4119 DEO #800f DEO BRK" '() "" 0 "" "A")
-(run-test "test SWP" "|100 #4142 SWP #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AB" "")
-(run-test "test DUP" "|100 #41 DUP #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AA" "")
-(run-test "test DEOk" "|100 #41 #18 DEOk DEO #800f DEO BRK" '() "" 0 "AA" "")
-(run-test "test DEOkr" "|100 LIT2r 4218 DEOkr DEOr #800f DEO BRK" '() "" 0 "BB" "")
+(run-test "test SWP" "|100 #40 #4142 SWP #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AB@" "")
+(run-test "test DUP" "|100 #40 #41 DUP #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AA@" "")
+(run-test "test DUPk" "|100 #4042 DUPk #18 DEO #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "BBB@" "")
+(run-test "test DUP2" "|100 #40 #4318 DUP2 DEO DEO #18 DEO #800f DEO BRK" '() "" 0 "CC@" "")
+(run-test "test DEOk" "|100 #4041 #18 DEOk DEO #18 DEO #800f DEO BRK" '() "" 0 "AA@" "")
+(run-test "test DEOkr" "|100 #40 LIT2r 4218 DEOkr DEOr #18 DEO #800f DEO BRK" '() "" 0 "BB@" "")
+(run-test "test ROT" "|100 #4041 #4342 ROT #18 DEO #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "ABC@" "")
+(run-test "test SWP2" "|100 #40 #4241 #4443 SWP2 #18 DEO #18 DEO #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "ABCD@" "")
 
 (display "\nsummary: ran ")
 (display tests-ran)