diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index ca811447..37dab2fc 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -567,7 +567,6 @@
 		       get-editor%
 		       get-editor<%>
 		       
-		       get-canvas-area-container
 		       make-editor
 		       save-as
 		       get-canvas
@@ -780,7 +779,6 @@
 	       args))
 	     
       (public
-	[get-canvas-area-container (lambda () (get-area-container))]
 	[get-canvas (let ([c #f])
 		      (lambda () 
 			(unless c
diff --git a/collects/framework/panel.ss b/collects/framework/panel.ss
index 45900fbd..fed0a780 100644
--- a/collects/framework/panel.ss
+++ b/collects/framework/panel.ss
@@ -238,6 +238,8 @@
 
   (define vertical-resizable<%>
     (interface (area-container<%>)
+      on-percentage
+      get-percentage
       set-percentage))
       
   (define vertical-resizable-mixin
@@ -295,6 +297,7 @@
       (inherit reflow-container get-top-level-window set-alignment get-alignment)
       (public
         [on-percentage (lambda (p) (void))]
+	[get-percentage (lambda () (send thumb-canvas get-percentage))]
 	[set-percentage
 	 (lambda (p)
 	   (send thumb-canvas set-percentage p)