diff --git a/Slang/slang.js b/Slang/slang.js
index 5ea2e4d..ff624f1 100755
--- a/Slang/slang.js
+++ b/Slang/slang.js
@@ -670,8 +670,8 @@ var BOOTSTRAP = [
 '',
 '-- we already have gt and eq, now let\'s define the rest...',
 ':: ne ( a b -- c ) [ eq not ]',
-':: lt ( a b -- c ) [ dup2 eq not rot gt not tor and ]',
-':: ge ( a b -- c ) [ dup2 eq rot gt tor or ]',
+':: lt ( a b -- c ) [ swap gt ]',
+':: ge ( a b -- c ) [ lt not ]',
 ':: le ( a b -- c ) [ gt not ]',
 '',
 ':: inc ( a -- b ) [ 1 add ]',