diff --git a/day2/both-clean.forth b/day2/both-clean.forth
index 38f27b7..4739568 100644
--- a/day2/both-clean.forth
+++ b/day2/both-clean.forth
@@ -2,7 +2,7 @@
 2 constant paper
 3 constant scissors
 
-: is-win ( them us -- yes ) - dup <0 swap 2 = or ;
+: is-win ( them us -- yes ) - dup -1 = swap 2 = or ;
 
 : get-score ( them us -- score )
   2dup is-win if 6 + else