diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index 7597a31e..9f044bbd 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -997,7 +997,7 @@
 	      (map-meta "\"" "insert-\"\"-pair")
 	      (map-meta "|" "insert-||-pair")
 	      (map-meta "s:l" "insert-lambda-template")
-              
+
 	      (map "c:p" "previous-line")
 	      (map "up" "previous-line")
 	      (map "s:c:p" "select-up")
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 9dfd7cc7..9be6263e 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -408,7 +408,8 @@
           (define (get-limit pos) 0)
           
           (define (balance-parens key-event)
-            (insert-close-paren (get-start-position) (send key-event get-key-code)
+            (insert-close-paren (get-start-position) 
+                                (send key-event get-key-code)
                                 (preferences:get 'framework:paren-match)
                                 (preferences:get 'framework:fixup-parens)))
           
diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index df99c816..318b9048 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -1471,8 +1471,7 @@ WARNING: printf is rebound in the body of the unit to always
 
       (define input-box<%>
         (interface ((class->interface text%))
-          box-input-not-used-anymore
-          set-port-text))
+          ))
       
       (define input-box-mixin
         (mixin ((class->interface text%)) (input-box<%>)