diff --git a/collects/framework/canvas.ss b/collects/framework/canvas.ss
index b10f6833..ffbbda47 100644
--- a/collects/framework/canvas.ss
+++ b/collects/framework/canvas.ss
@@ -104,7 +104,7 @@
 			   ;; console printer
 			   (let ([fallback
 				  (lambda ()
-				    (send edit get-snip-position
+				    (send edit get-snip-location
 					  s left-edge-box top-edge-box))])
 			     (cond
 			       [(not width?) (fallback)]