diff --git a/build/lisp.tcl b/build/lisp.tcl
index 97beea3b..bceb6518 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -824,6 +824,8 @@ respond "_" "reader\r"
 respond "_" "setup\r"
 respond "_" "unedit\r"
 respond "_" "music\r"
+respond "_" "turtle\r"
+respond "_" "tvrtle\r"
 respond "_" "\032"
 type ":kill\r"
 respond "*" ":lisp loader\r"
diff --git a/src/llogo/ioc.lsp b/src/llogo/ioc.lsp
index 7d41c750..8e158ee1 100644
--- a/src/llogo/ioc.lsp
+++ b/src/llogo/ioc.lsp
@@ -3,11 +3,13 @@
 
 (defmacro ioc (sym)
   (cond
+    ((eq sym 'F)   `(funcall (status ttyint '/) tyi '/))
     ((eq sym 'G)   `(^G))
     ((eq sym 'R)   `(setq ^R t))
     ((eq sym 'T)   `(setq ^R nil))
     ((eq sym 'V)   `(setq ^W nil))
     ((eq sym 'W)   `(setq ^W t))
+    ((eq sym 'Y)   `(funcall (status ttyint '/) tyi '/))
     ((eq sym 'RW)  `(progn (ioc R) (ioc W)))
     (t             (error "Unknown IOC character"))))
 
diff --git a/src/llogo/turtle.466 b/src/llogo/turtle.466
index e482d479..1bde18ff 100644
--- a/src/llogo/turtle.466
+++ b/src/llogo/turtle.466
@@ -8,7 +8,9 @@
 (DECLARE (GENPREFIX TURTLE)
 	 (*FEXPR PHOTO SNAP PICTURE RESNAP)
 	 (*LEXPR ERRBREAK POINT DSCALE SETHOME DISPLAY BLINK UNBLINK MOTION BRIGHT
-		 SCALE RANGE BEARING TOWARDS PENSTATE)
+		 SCALE RANGE BEARING TOWARDS PENSTATE
+		 DISINI DISFLUSH DISALINE DISAPOINT DISCREATE DISET DISLIST
+		 DISCUSS)
 	 (*EXPR HOME)
 	 (SPECIAL :WRAP :POLYGON FLOAT-DIS :SNAP :TEXTXHOME :TEXTYHOME NEWTURTLE
 		  WORLD :SNAPS :DSCALE :RAD3 :PI :TURTLE HOME :HEADING :XCOR :YCOR