--- gforth/blocks.fs	2011/01/19 19:26:03	1.57
+++ gforth/blocks.fs	2011/05/20 13:54:37	1.58
@@ -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