diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index 45d89302..3f65b5ad 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -994,7 +994,7 @@
 		   (lambda ()
 		     (let ([frame (get-frame)])
 		       (when frame
-			 ((uq-ivar frame ivar-sym))))))
+			 ((ivar/proc frame ivar-sym))))))
 	      tag))])
 	(public
 	  [set-anchor
diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss
index 65199b0f..f834d0f2 100644
--- a/collects/mred/keys.ss
+++ b/collects/mred/keys.ss
@@ -60,7 +60,7 @@
 			 (if (is-a? p wx:frame%)
 			     p
 			     (loop (send p get-parent))))])
-		  ((uq-ivar frame method))
+		  ((ivar/proc frame method))
 		  #t)))])
       (lambda (kmap)
 	(let* ([map (lambda (key func)