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.26
+version:	0.0.27
 stability:	alpha
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
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
@@ -397,14 +397,19 @@
 --------------------------------------------------------------------------------
 
 drawCharacter :: Field -> Character -> Color -> Color -> [Position] -> Double -> IO ()
-drawCharacter f _ fclr clr sh lw = writeIORef (fAction f) $
+drawCharacter f _ fclr clr sh lw = do
 	makeCharacterAction f sh fclr clr lw
+	writeIORef (fAction f) $
+		makeCharacterAction f sh fclr clr lw
 
 drawCharacterAndLine ::	Field -> Character -> Color -> Color -> [Position] ->
 	Double -> Position -> Position -> IO ()
-drawCharacterAndLine f _ fclr clr sh lw p q = writeIORef (fAction f) $ do
+drawCharacterAndLine f _ fclr clr sh lw p q = do
 	makeLineAction f p q clr lw
 	makeCharacterAction f sh fclr clr lw
+	writeIORef (fAction f) $ do
+		makeLineAction f p q clr lw
+		makeCharacterAction f sh fclr clr lw
 
 clearCharacter :: Field -> IO ()
 clearCharacter f = writeIORef (fAction f) $ return ()