X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fui%2Fui.factor;h=aa3c549cf0e2fdeb7c98a25592d8a31184809766;hp=2486e701c0cec64c26cffb529785dc88575fdcfa;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index 2486e701c0..aa3c549cf0 100644
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -26,7 +26,7 @@ SYMBOL: windows
     #! etc.
     swap 2array windows get-global push
     windows get-global dup length 1 >
-    [ [ length 1- dup 1- ] keep exchange ] [ drop ] if ;
+    [ [ length 1 - dup 1 - ] keep exchange ] [ drop ] if ;
 
 : unregister-window ( handle -- )
     windows [ [ first = not ] with filter ] change-global ;