diff --git a/collects/graphics/turtle-sig.ss b/collects/graphics/turtle-sig.ss
index 60feede3c3..b49e359269 100644
--- a/collects/graphics/turtle-sig.ss
+++ b/collects/graphics/turtle-sig.ss
@@ -1,7 +1,7 @@
 #lang scheme/signature
 
 turtles
-clear
+clear home
 turn turn/radians
 move move-offset
 draw draw-offset
diff --git a/collects/graphics/turtle-unit.ss b/collects/graphics/turtle-unit.ss
index 82016f0475..94d813033e 100644
--- a/collects/graphics/turtle-unit.ss
+++ b/collects/graphics/turtle-unit.ss
@@ -227,6 +227,13 @@
     (set! lines-in-drawing null)
     (clear-window)))
 
+(define home
+  (lambda ()
+    (flip-icons)
+    (set! turtles-cache empty-cache)
+    (set! turtles-state (list clear-turtle))
+    (flip-icons)))
+
 ;; cache elements:
 (define-struct c-forward (distance))
 (define-struct c-turn (angle))