--- gforth/prims2x.fs	2000/12/30 15:22:52	1.60
+++ gforth/prims2x.fs	2001/01/06 19:29:14	1.62
@@ -125,7 +125,7 @@ end-struct type%
 s" sp" save-mem s" (Cell)" make-stack data-stack 
 s" fp" save-mem s" "       make-stack fp-stack
 s" rp" save-mem s" (Cell)" make-stack return-stack
-s" ip" save-mem s" error don't use # on results" make-stack inst-stream
+s" IP" save-mem s" error don't use # on results" make-stack inst-stream
 ' inst-in-index inst-stream stack-in-index-xt !
 \ !! initialize stack-in and stack-out
 
@@ -383,8 +383,8 @@ warnings @ [IF]
  >r
  ." FETCH_DCELL("
  r@ item-name 2@ type ." , "
- r@ item-in-index r@ item-stack @ 2dup stack-access
- ." , "                      -1 under+ stack-access
+ r@ item-in-index r@ item-stack @ 2dup ." (Cell)" stack-access
+ ." , "                      -1 under+ ." (Cell)" stack-access
  ." );" cr
  rdrop ;
 
@@ -798,7 +798,7 @@ does> ( item -- )
 
 : process-file ( addr u xt -- )
     >r
-    2dup filename 2!
+    save-mem 2dup filename 2!
     0 function-number !
     r/o open-file abort" cannot open file"
     warnings @ if