Make notfound work right with word name.

common/boot.fs

@@ -69,7 +69,7 @@ create NEXT ' donext @ ' next !   : next   -1 nest-depth +! ['] next , , ; immed
     dup RECTYPE-NONE <> if rdrop rdrop rdrop rdrop exit then
     drop r> r> r>
   then next
-  drop 2drop RECTYPE-NONE
+  drop RECTYPE-NONE
 ;
 
 ( Define a recognizer stack. )

common/io.fs

@@ -57,7 +57,7 @@ variable hld
 
 ( Better Errors )
 : notfound ( a n n -- )
-   if cr ." ERROR: " type ."  NOT FOUND!" cr -1 throw then ;
+   dup if cr ." ERROR: " >r type r> ."  NOT FOUND!" cr throw else drop then ;
 ' notfound 'notfound !
 
 ( Abort )