Hide more words as internals.

ueforth/common/forth_namespace_tests.fs

@@ -52,8 +52,6 @@ e: check-boot
   out: z" 
   out: ." 
   out: s" 
-  out: zplace 
-  out: $place 
   out: n. 
   out: ? 
   out: . 
@@ -140,9 +138,7 @@ e: check-boot
   out: state 
   out: >in 
   out: #tib 
-  out: 'tib 
   out: current 
-  out: sys: 
   out: variable 
   out: constant 
   out: c, 

ueforth/common/testing.fs

@@ -12,7 +12,7 @@
 \ See the License for the specific language governing permissions and
 \ limitations under the License.
 
-also ansi
+also ansi also internals
 
 DEFINED? windows [IF]
   also windows

ueforth/common/vocabulary.fs

@@ -54,12 +54,13 @@ transfer{
   evaluate1 evaluate-buffer
   'sys 'heap aliteral 'heap-start 'heap-size
   'stack-cells 'boot 'boot-size 'latestxt
-  'argc 'argv 'runner
+  'argc 'argv 'runner 'tib
   leaving( )leaving leaving leaving,
   (do) (?do) (+loop)
   parse-quote digit $@ raw.s
   tib-setup input-limit
   [SKIP] [SKIP]' raw-ok
+  $place zplace sys:
 }transfer
 forth definitions