diff --git a/pd/src/dialog_array.tcl b/pd/src/dialog_array.tcl
index 0b39567431da70ac151e67ef86eb5199127612fe..564eb4ac1281356dc34a581d21cbedf6b26b648a 100644
--- a/pd/src/dialog_array.tcl
+++ b/pd/src/dialog_array.tcl
@@ -251,7 +251,7 @@ pdtk_post "full bajitas is \
                 (16 * $::joc_button($mytoplevel))] \
 \n"
 
-pdtk_post "mytop fucking level is $mytoplevel\n"
+pdtk_post "mytop level is $mytoplevel\n"
     pd "[concat $mytoplevel arraydialog \
             $mofo \
             [$mytoplevel.size.entry get] \