spaces doesn't need 0 max

assert.fs

@@ -126,7 +126,7 @@ Variable timer-list
 
 : .times ( -- )
     [: dup body> >name name>string 1 /string
-	tuck type 8 swap - 0 max spaces ." : "
+	tuck type 8 swap - spaces ." : "
 	2@ d>f 1n f* f. cr ;] map-timer ;
 
 : !time ( -- ) ntime timer-tick 2! ;

cross.fs

@@ -1408,7 +1408,7 @@ Variable mirrored-link          \ linked list for mirrored regions
   WHILE cr
         0 >rlink - >r
         r@ >rname count tuck type
-        12 swap - 0 max spaces space
+        12 swap - spaces space
         ." Start: " r@ >rstart @ dup .addr space
         ." End: " r@ >rlen @ + .addr space
         ." DP: " r> >rdp @ .addr

debug.fs

@@ -69,7 +69,7 @@ get-current also see-voc definitions
         save-see-flags
         NoFine 10 XPos !
         dbg-ip @ DisplayMode c-pass ! Analyse drop
-        25 XPos @ - 0 max spaces ." -> " 
+        25 XPos @ - spaces ." -> " 
         restore-see-flags ;
 
 : get-next ( -- n | n n )