Problem with passing variable into subroutine

Question

Applescript newbie stumped again...
for some reason when call the subroutine below from my code, I get an error message on the bolded variable.
Error is:
Can't make "test" into type integer.
I am calling the subroutine like this:
createFolder(folderCreationPath, appFolderName)
And am passing in two variables that I have concatenated folder name & path name.
on createFolder(folderLocation, folderName)
tell application "Finder"
if (the folder folderName of folderLocation exists) then
display dialog folderName & " already exists."
else
make new folder at folderLocation with properties {name:folderName}
end if
end tell
end createFolder
When I display the variables inside the subroutine, both appear to be strings.
Any help would be appreciated.
Thank you.

Answer 1

If I knew how to upload a file to the forum I would do so...
Copy & paste into script editor would reformat.
Here's the full script:
---SubRoutines------------------------------------------------------------------ ------------------------------------------------------------------
on createFolder(folderLocation, folderName)
display dialog "FolderName: " & folderName & "
Folder Location: " & folderLocation & "
" & folderLocation & folderName
tell application "Finder"
if (the folder folderName of folder folderLocation exists) then
display dialog folderName & " already exists."
else
make new folder at (folderLocation as alias) with properties {name:folderName}
end if
end tell
end createFolder
---Main Code--------------------------------------------------------------------------- ------------------------------------------------------------
set projectName to "Project " & the text returned of (display dialog "What is the name of your Project?" default answer "")
set projectLocation to choose folder
---create root project folder
createFolder(projectLocation, projectName)
---create subFolders
--List of Folder names:
set FolderMediaType to {"Project", "Media & Imports", "Exports"}
set projectApplication to {"FCP", "Soundtrack", "LiveType", "Motion", "DVD Studio Pro", "Web Videos"}
set projectLocation to projectLocation & projectName --Set's project location to include project folder
repeat with iProjectApplication from 1 to count (projectApplication)
set folderCreationPath to ((projectLocation as string) & ":") --set's folderCreation to include project folder
set appFolderName to ((iProjectApplication as string) & "-" & (item iProjectApplication of projectApplication))
createFolder(folderCreationPath, appFolderName)
set folderCreationPath to projectLocation & ":" & appFolderName & ":"
repeat with iFolderMediaType from 1 to count (FolderMediaType)
set mediaFolderName to iFolderMediaType & "-" & (item iFolderMediaType of FolderMediaType)
createFolder(folderCreationPath, mediaFolderName)
end repeat
end repeat