diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index aded85ab..a7e8c11d 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -4189,7 +4189,7 @@
 		  (and (positive? selection) selection)))))
 
 (define list-box%
-  (class100 basic-list-control% (label choices parent callback [style '(single)] [selection 0])
+  (class100 basic-list-control% (label choices parent callback [style '(single)] [selection #f])
     (sequence 
       (let ([cwho '(constructor list-box)])
 	(check-list-control-args cwho label choices parent callback)