Finder can't continue recursive function

Question

I'm trying to write a recursive function that returns a nested list representing the directory structure (including files) below a starting path. When I run my function, I get an error: "Applescript Error: Finder got an error: Can't continue getDirectoryStructure." This error appears at the first subfolder encountered.
This is one of those "spot my mistake" kind of posts, because I am completely lost. I don't see why it shouldn't be able to continue with my recursive function. Here's the code:
on getDirectoryStructure(startPath)
tell application "Finder"
set dirList to {}
set tempDirList to (get items of folder startPath)
repeat with curItem in tempDirList
if (class of curItem is folder) then
set end of dirList to getDirectoryStructure(startPath & ":" & name of curItem)
else
set end of dirList to curItem
end if
end repeat
end tell
return dirList
end getDirectoryStructure
getDirectoryStructure("Filibuster II:Users:ryos:Documents")

Answer 1

I didn't realize I could display this a little better, I'm new to the list, and slowly getting it figured out.
This is a re-post of my previous message...
on script_title()
   Filename : minimaldirtraversal.scpt (Script Debugger)
   Author : Bill Hernandez
   Version : 1.0.0
   Updated : Saturday, December 16, 2006 ( 3:18 PM )
end script_title
-- ---------+---------+---------+------------------
on script_notes()
   I took one of my directory traversal routines, and took a bunch of stuff
   out of it, to create this for you...
   Hope it helps,
   Bill Hernandez
end script_notes
-- ---------+---------+---------+------------------
property gtimestart : ""
property gtimeend : ""
-- ---------+---------+---------+------------------
-- PROPERTIES REQUIRED FOR PROCESSING TRAVERSAL
-- ---------+---------+---------+------------------
property aFound : {}
property aIgnored : {}
property aFileTypes : {"TEXT"}
property aExtensions : {"txt", "text", "applescript", "html", "php"}
-- ---------+---------+---------+------------------
-- SYSTEM PATHS
-- ---------+---------+---------+------------------
property gdirpathhome : ""
property gdirpathdesktop : ""
property gdirpathdocs : ""
property gdirpathprefs : ""
property gdirpathtemp : ""
-- ---------+---------+---------+------------------
property gtextdelim : ":"
property g_Divider : "--------------------------------------------------" & return
-- ---------+---------+---------+------------------
property aErrors : {} -- list of errors
property gshow_errormessages : true -- set to false to prevent error messages from displaying
property gsend_error_messages_tolog : true
property g_continue : true -- use this instead of [if (not(g_abort)) then]
-- ---------+---------+---------+------------------
on run
   set w_props to {contents:""}
   --set w_id to my bb_CkWindowExists("Dummy Work Document", "", w_props) -- REMOVE THIS LINE, USED FOR TESTING
   tell me
      InitGlobals()
      set which to "selectchoosefolder" -- aChoices -> { "selectcurrentdocument", "selectopendocuments", "selectchoosefolder"}
      main(which) -- place your code in [main]
   end tell
end run
-- ---------+---------+---------+------------------
on main(whichAction) -- This is the [main handler] called by [on run]
   -- THIS IS A BASIC SHELL FOR ANY SCRIPT
   my ProcessRequest(whichAction)
   if (g_continue) then
      set str to "" -- If this set to "", the following will be used "Would you like to continue processing now?"
      -- REMOVE NEXT LINE, USED FOR TESTING
      set str to str & "Found : ( " & (count items in aFound) & " ) files..." & return & "Time to process : " & (gtimeend - gtimestart) & " seconds..." & return & return
      if (my ConfirmRequest(str)) then
         repeat with thisItem in aFound
            -- PROCESS EACH (FILE, WINDOW, or DOCUMENT) HERE
            -- ******* DO THE WORK HERE
         end repeat
      end if
   end if
   set error_title to "Problem Found:" & return & "NOTIFY APPLE COMPUTER"
   my error_HandleErrors(aErrors, error_title, gshow_errormessages, gsend_error_messages_tolog)
   tell application "BBEdit" to activate
end main
-- ---------+---------+---------+------------------
on ProcessRequest(whichAction)
   -- Having "if (whichAction..." here is redundant, instead of having it below, but makes it easier not having to repeat "set gtimestart..." several times
   if (whichAction = "selectchoosefolder") then
      set startFolder to my ChooseFolder("Select the folder where the files you want to combine are stored?")
   end if
   -- MAKE SURE "set gtimestart..." COMES AFTER "ChooseFolder(...)"
   set gtimestart to (current date) -- REMOVE THIS LINE, USED FOR TESTING
   if (g_continue) then
      if (whichAction = "selectopendocuments") then
      else if (whichAction = "selectchoosefolder") then
         my processDirectory(startFolder)
      else if (whichAction = "selectcurrentdocument") then
      else
         set aFound to {}
      end if
   end if
   set gtimeend to (current date) -- REMOVE THIS LINE, USED FOR TESTING
end ProcessRequest
-- ---------+---------+---------+------------------
on InitGlobals()
   set aErrors to {} -- list of errors
   set gdirpathhome to (path to home folder from user domain as text)
   set gdirpathdesktop to (path to desktop from user domain as text)
   set gdirpathdocs to (path to documents folder from user domain as text)
   set gdirpathprefs to (path to preferences folder from user domain as text)
   set gdirpathtemp to (path to temporary items folder from user domain as text)
   set g_continue to true
   set aFound to {}
   set aIgnored to {}
end InitGlobals
-- ---------+---------+---------+------------------
on ChooseFolder(s)
   tell application "Finder"
      activate
      if (s = "") then
         set str to "Select the folder you wish to traverse?"
      else
         set str to s
      end if
      try
         return choose folder with prompt str
      on error
         set g_continue to false
         tell application "BBEdit" to activate
      end try
   end tell
end ChooseFolder
-- ---------+---------+---------+------------------
on ConfirmRequest(s)
   tell application "BBEdit"
      activate
      set b1 to "Go Ahead..."
      set b2 to "Forget It!"
      set str to s & "Would you like to continue processing now?"
      set aResult to display dialog str buttons {b1, b2} default button {b1}
      if ((button returned of aResult) = b1) then
         return true
      else
         return false
      end if
   end tell
end ConfirmRequest
-- ---------+---------+---------+------------------
on date_GetFullDate(theDate)
   set ds to date string of (theDate)
   set TS to time string of (theDate)
   tell application "Finder"
      set TS to ((get characters 1 thru -7 of TS) & (get characters -3 thru -1 of TS)) as string
   end tell
   set FD to (ds & " (" & TS & ")")
   return FD
end date_GetFullDate
-- ---------+---------+---------+------------------
on processDirectory(thisFolder)
   tell application "Finder"
      set aItems to (get every item of folder thisFolder)
   end tell
   repeat with I from 1 to the count of aItems
      set thisItem to (item I of aItems as alias)
      set itemInfo to info for thisItem
      set itemName to (name of itemInfo)
      if ((folder of itemInfo) is true) then
         my processDirectory(thisItem) -- It is a FOLDER
      else if ((visible of itemInfo is true) and (alias of itemInfo is false)) then
         if (((file type) of itemInfo) is in aFileTypes) then
            set aFound to aFound & thisItem -- It is a valid file
         else if (((name extension) of itemInfo) is in aExtensions) then
            set aFound to aFound & thisItem -- It is a valid file
         else
            set aIgnored to aIgnored & thisItem -- It is NOT a valid file
         end if
      else
         set aIgnored to aIgnored & thisItem -- It is NOT a valid file
      end if
   end repeat
end processDirectory
-- ---------+---------+---------+------------------
on error_HandleErrors(aErrorList, header_str, display_error, send2log)
   if (header_str = "") then
      set myheaderstr to "Errors were encountered during script execution..."
   else
      set myheaderstr to header_str
   end if
   if ((count of aErrorList) > 0) then
      set s to ""
      repeat with my_error in aErrorList
         set s to s & my_error & return & return
      end repeat
      set s to header_str & return & return & s
      if (display_error) then
         display dialog s buttons {"OK"} default button {"OK"} with icon stop giving up after 15
      end if
      if (send2log) then
         -- NEED TO INCLUDE ROUTINE TO SEND ERRORS TO THE LOG
         -- next line is normally enabled
         -- my writetofile(s, gfilepathlog, true) -- { (true -> append_data), (false -> overwrite) }
      end if
   end if
end error_HandleErrors
-- ---------+---------+---------+------------------