diff --git a/pd/src/helpbrowser.tcl b/pd/src/helpbrowser.tcl
index c10c935445cc727bb67d821f7ca3d4adb3695292..d1d0f96de7f38206fb5f1cccd87c90d815619198 100644
--- a/pd/src/helpbrowser.tcl
+++ b/pd/src/helpbrowser.tcl
@@ -21,7 +21,7 @@ proc ::helpbrowser::open_helpbrowser {} {
         wm deiconify .help_browser
         raise .help_browser
     } else {
-        toplevel .help_browser -class HelpBrowser
+        toplevel .help_browser -class [winfo class .]
         wm group .help_browser .
         wm transient .help_browser
         wm title .help_browser [_ "Help Browser"]