diff --git a/collects/help/help.ss b/collects/help/help.ss
index cd522867..fc441e84 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -90,6 +90,8 @@
 			   (send main-sd-button enable #f)
 			   (send cb-frame center)
 			   (send cb-frame show #t)))])
+		     (define/override can-close? 
+		       (lambda () (shutdown-dialog) #f))
 		     (super-instantiate ())
 		     (set! panel
 			   (instantiate vertical-panel% ()