diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor
old mode 100644
new mode 100755
index feb19af040..7e16c1c218
--- a/basis/editors/editors.factor
+++ b/basis/editors/editors.factor
@@ -49,7 +49,7 @@ M: cannot-find-source error.
 
 : edit-error ( error -- )
     [ error-file ] [ error-line ] bi
-    2dup and [ edit-location ] [ 2drop ] if ;
+    over [ 1 or edit-location ] [ 2drop ] if ;
 
 : :edit ( -- )
     error get edit-error ;