diff --git a/collects/framework/editor.ss b/collects/framework/editor.ss
index b6fdf2d3..66228032 100644
--- a/collects/framework/editor.ss
+++ b/collects/framework/editor.ss
@@ -130,7 +130,7 @@
 		  (lambda (edit)
 		    (let ([admin (send edit get-admin)])
 		      (cond
-			[(is-a? admin editor-snip-editor-admin%)
+			[(is-a? admin editor-snip-editor-admin<%>)
 			 (send (send (send admin get-snip) get-admin) get-editor)]
 			;; assume that any non-media-snip 
 			;; administrator doesn't have embedded edits.
diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index 4bd0c8d2..787d47fc 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -445,7 +445,7 @@
 		 [pop-out
 		  (lambda ()
 		    (let ([admin (send edit get-admin)])
-		      (if (is-a? admin editor-snip-editor-admin%)
+		      (if (is-a? admin editor-snip-editor-admin<%>)
 			  (let* ([snip (send admin get-snip)]
 				 [edit-above (send (send snip get-admin) get-editor)]
 				 [pos (send edit-above get-snip-position snip)]