diff --git a/bootstrap.fs b/bootstrap.fs
index d059f00..0130185 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1791,7 +1791,7 @@ variable source-buffer-end source-buffer source-buffer-end !
 : increment-lineno ( -- ) 1 inputstreams @ input>lineno +! ;
 
 : source ( -- c-addr) source-buffer ;
-: in> ( -- c-addr ) source-buffer-pos ;
+: >in ( -- c-addr ) source-buffer-pos ;
 
 \ Throw UNEXPECTED-EOF-ERROR at EOF
 :noname ( -- c )
@@ -2388,7 +2388,7 @@ need-defined (read)
         insn:docol insn:exit insn:lit insn:litstring insn:branch insn:0branch
 
         words id. name>string name>link
-        include included source in>
+        include included source >in
         next-arg shift-args arg argv argc implementation
 
         [if] [unless] [else] [then] defined?