--- gforth/blocks.fs	2011/01/19 19:26:03	1.57
+++ gforth/blocks.fs	2012/12/31 15:25:17	1.62
@@ -1,6 +1,6 @@
 \ A less simple implementation of the blocks wordset. 
 
-\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2008 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2008,2011,2012 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -89,7 +89,7 @@ Defer flush-blocks ( -- ) \ gforth
 
 : use ( "file" -- ) \ gforth
     \g Use @i{file} as the blocks file.
-    name open-blocks ;
+    name name-too-short? open-blocks ;
 
 \ the file is opened as binary file, since it either will contain text
 \ without newlines or binary data
@@ -188,7 +188,7 @@ Defer flush-blocks ( -- ) \ gforth
     block ;
 
 User scr ( -- a-addr ) \ block-ext s-c-r
-    \G @code{User} variable -- @i{a-addr} is the address of a cell containing
+    \G @code{User} variable containing
     \G the block number of the block most recently processed by
     \G @code{list}.
 0 scr !
@@ -208,9 +208,9 @@ User scr ( -- a-addr ) \ block-ext s-c-r
     dup scr !
     ." Screen " u.
     scr @ updated?  0= IF ." not "  THEN  ." modified     " cr
-    16 0
+    l/s 0
     ?do
-	i 2 .r space scr @ block i 64 * chars + 64 type cr
+	i 2 .r space scr @ block i c/l * chars + c/l type cr
     loop ;
 
 [IFDEF] current-input