diff --git a/extra/ui/tools/walker/walker.factor b/extra/ui/tools/walker/walker.factor
old mode 100644
new mode 100755
index fabdf26818..3ff9b284e5
--- a/extra/ui/tools/walker/walker.factor
+++ b/extra/ui/tools/walker/walker.factor
@@ -39,7 +39,7 @@ TUPLE: walker model interpreter history ;
 
 : com-back ( walker -- )
     dup walker-history
-    dup empty? [ drop ] [ pop swap call-tool* ] if ;
+    dup empty? [ 2drop ] [ pop swap call-tool* ] if ;
 
 : reset-walker ( walker -- )
     <interpreter> over set-walker-interpreter