I'm sorry my reply is about a month late, I haven't been checking the Classic Forum lately.
Anyway... Will this work for you?
tell application "Finder"
set window_list to get every window as list
set frontmost_window to item 1 of window_list
set the_date to current date
set _day to day of the_date
set _month to month of the_date
set _year to year of the_date
set folder_name to (_month & " " & _day & ", " & _year) as string
make new folder with properties {name:folder_name} at frontmost_window
end tell