--- gforth/kernel/int.fs	2003/01/26 20:56:38	1.94
+++ gforth/kernel/int.fs	2003/02/01 14:28:08	1.95
@@ -775,9 +775,10 @@ max-errors has? file [IF] 6 [ELSE] 4 [TH
     \ !! not used...
     [char] $ emit base @ swap hex u. base ! ;
 
-: typewhite ( addr u -- ) \ gforth
-    \G Like type, but white space is printed instead of the characters.
-    bounds ?do
+: typewhite ( addr n -- ) \ gforth
+\G Like type, but white space is printed instead of the characters.
+    \ bounds u+do
+    0 max bounds ?do
 	i c@ #tab = if \ check for tab
 	    #tab
 	else