diff --git a/gluturtle.cabal b/gluturtle.cabal
--- a/gluturtle.cabal
+++ b/gluturtle.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.6
 
 name:		gluturtle
-version:	0.0.9
+version:	0.0.10
 stability:	alpha
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
diff --git a/src/Graphics/UI/GLUT/Turtle.hs b/src/Graphics/UI/GLUT/Turtle.hs
--- a/src/Graphics/UI/GLUT/Turtle.hs
+++ b/src/Graphics/UI/GLUT/Turtle.hs
@@ -154,7 +154,7 @@
 		shapes = shapesRef,
 		inputs = fmap (flip take hist . pred) $ readIORef index,
 		killTurtle = flushField f True $
-			clearLayer l >> clearCharacter c >> killThread thr}
+			clearLayer l >> clearCharacter f >> killThread thr}
 	shape t "classic" >> input t (Undonum 0) >> return t
 
 runInputs :: Turtle -> [TurtleInput] -> IO ()
diff --git a/src/Graphics/UI/GLUT/Turtle/Field.hs b/src/Graphics/UI/GLUT/Turtle/Field.hs
--- a/src/Graphics/UI/GLUT/Turtle/Field.hs
+++ b/src/Graphics/UI/GLUT/Turtle/Field.hs
@@ -288,8 +288,8 @@
 	makeLineAction f p q clr lw
 	makeCharacterAction f sh fclr clr lw
 
-clearCharacter :: Character -> IO ()
-clearCharacter ch = character ch $ return ()
+clearCharacter :: Field -> IO ()
+clearCharacter f = writeIORef (fAction f) $ return ()
 
 --------------------------------------------------------------------------------
 
diff --git a/src/Graphics/UI/GLUT/Turtle/Move.hs b/src/Graphics/UI/GLUT/Turtle/Move.hs
--- a/src/Graphics/UI/GLUT/Turtle/Move.hs
+++ b/src/Graphics/UI/GLUT/Turtle/Move.hs
@@ -68,7 +68,7 @@
 		forM_ (positions w h t0 t1) $ \p -> fl $
 			drawTtl (direction t1) p >> threadDelay (interval t0)
 		fl $ drawTtl (direction t1) $ position t1
-	when (visible t0 && not (visible t1)) $ fl $ clearCharacter c
+	when (visible t0 && not (visible t1)) $ fl $ clearCharacter f
 	when (clear t1) $ fl $ clearLayer l
 	unless (undo t1) $ fl $ maybe (return ()) (drawSVG f l) (draw t1)
 	where
diff --git a/tests/testGLUT.hs b/tests/testGLUT.hs
--- a/tests/testGLUT.hs
+++ b/tests/testGLUT.hs
@@ -39,4 +39,5 @@
 processInput _ t "message" = write t "KochiGothic" 100 "Hello, world!" >> return True
 processInput _ t "0very1very2very3very4very5very6very7very8very9very0very-long-line"
 	= putStrLn "very long line" >> return True
+processInput _ t "hide" = hideturtle t >> return True
 processInput _ _ _ = return True