diff --git a/collects/mred/private/mritem.ss b/collects/mred/private/mritem.ss
index 852133fc..44475b46 100644
--- a/collects/mred/private/mritem.ss
+++ b/collects/mred/private/mritem.ss
@@ -116,7 +116,7 @@
 		       label parent void #f))))))
 
   (define button%
-    (class100*/kw basic-control% () [(label parent callback [style null]) control%-keywords]
+    (class100*/kw basic-control% () [(label parent [callback (lambda (b e) (void))] [style null]) control%-keywords]
       (override
 	[label-checker  (lambda () check-label-string-or-bitmap)]) ; module-local method
       (sequence
@@ -137,7 +137,7 @@
 		       label parent callback #f))))))
 
   (define check-box%
-    (class100*/kw basic-control% () [(label parent callback [style null] [value #f]) control%-keywords]
+    (class100*/kw basic-control% () [(label parent [callback (lambda (b e) (void))] [style null] [value #f]) control%-keywords]
       (sequence
 	(let ([cwho '(constructor check-box)])
 	  (check-label-string-or-bitmap cwho label)
@@ -168,7 +168,7 @@
 
   (define radio-box%
     (class100*/kw basic-control% () 
-		  [(label choices parent callback [style '(vertical)] [selection 0]) control%-keywords]
+		  [(label choices parent [callback (lambda (b e) (void))] [style '(vertical)] [selection 0]) control%-keywords]
       (private-field [chcs choices])
       (sequence 
 	(let ([cwho '(constructor radio-box)])
@@ -238,7 +238,7 @@
 
   (define slider%
     (class100*/kw basic-control% ()
-		  [(label min-value max-value parent callback [init-value min-value] [style '(horizontal)])
+		  [(label min-value max-value parent [callback (lambda (b e) (void))] [init-value min-value] [style '(horizontal)])
 		   control%-keywords]
       (private-field [minv min-value][maxv max-value])
       (sequence 
@@ -423,7 +423,7 @@
 
   (define choice%
     (class100*/kw basic-list-control% ()
-		  [(label choices parent callback [style null] [selection 0])
+		  [(label choices parent [callback (lambda (b e) (void))] [style null] [selection 0])
 		   control%-keywords]
       (sequence
 	(let ([cwho '(constructor choice)])
@@ -446,7 +446,7 @@
 
   (define list-box%
     (class100*/kw basic-list-control%  ()
-		  [(label choices parent callback [style '(single)] [selection #f] [font no-val] [label-font no-val])
+		  [(label choices parent [callback (lambda (b e) (void))] [style '(single)] [selection #f] [font no-val] [label-font no-val])
 		   control%-nofont-keywords]
       (sequence 
 	(let ([cwho '(constructor list-box)])
diff --git a/collects/mred/private/mrpanel.ss b/collects/mred/private/mrpanel.ss
index 95965591..11d327b6 100644
--- a/collects/mred/private/mrpanel.ss
+++ b/collects/mred/private/mrpanel.ss
@@ -101,7 +101,7 @@
 
   (define tab-panel%
     (class100*/kw vertical-panel% ()
-		  [(choices parent callback [style null] [font no-val]) panel%-keywords]
+		  [(choices parent [callback (lambda (b e) (void))] [style null] [font no-val]) panel%-keywords]
       (sequence
 	(let ([cwho '(constructor tab-panel)])
 	  (unless (and (list? choices) (andmap label-string? choices))
diff --git a/collects/mred/private/mrtextfield.ss b/collects/mred/private/mrtextfield.ss
index e8ab2ec5..2769a55f 100644
--- a/collects/mred/private/mrtextfield.ss
+++ b/collects/mred/private/mrtextfield.ss
@@ -45,7 +45,7 @@
 
   (define text-field%
     (class100*/kw basic-control% () 
-		  [(label parent callback [init-value ""] [style '(single)])
+		  [(label parent [callback (lambda (b e) (void))] [init-value ""] [style '(single)])
 		   control%-keywords]
       (sequence 
 	(check-text-field-args '(constructor text-field)
@@ -86,7 +86,7 @@
 
   (define combo-field%
     (class100*/kw text-field% () 
-		  [(label choices parent callback [init-value ""] [style '()])
+		  [(label choices parent [callback (lambda (b e) (void))] [init-value ""] [style '()])
 		   control%-keywords]
       (inherit set-value popup-menu get-size focus get-editor)
       (sequence