diff --git a/collects/lang/htdp-langs.rkt b/collects/lang/htdp-langs.rkt
index d99c89ef9f..6e6597ae8d 100644
--- a/collects/lang/htdp-langs.rkt
+++ b/collects/lang/htdp-langs.rkt
@@ -741,9 +741,10 @@
                [parent user-installed-gb]))
         
         (define (selected lb)
-          (unless compiling?
-            (set! answer (figure-out-answer))
-            (send dlg show #f)))
+          (when (send lb get-selection)
+            (unless compiling?
+              (set! answer (figure-out-answer))
+              (send dlg show #f))))
         
         (define (clear-selection lb)
           (for-each