Modal Dialog Boxes from within a Skill++ file.

I am trying to create a modal dialog box using a procedure loaded from a SKILL++ (.ils) file, but it doesn't seem to be modal and the simulation continues to execute before the user makes a selection.  inSkill does not seem to make it modal either.  Can I not have a modal dialog box in SKILL++?  Edit: I also moved it to a Skill (.il) file withourt the inSkill function and it still is not giving me a modal box.  It shows a box both ways but it is not interactive until the rest of the script is complete.

The procedure is:

;dbSkyOpenAdexl
; Opens an Adexl setup database in a new session. If the adexl cellview already exists it is opened in append mode and all elements except history are removed.
; If it does not exist, a new one is created.
;
; USAGE
; dbSkyOpenAdexl(S_libName S_cellName S_viewName)
; INPUTS
; S_libName - library name (string)
; S_cellName - cell name (string)
; S_viewName - view name (string) Usually set to "adexl"
; RETURNS
; A list whose first element is the adxel setup database and the second element is the session. Returns nil if the adexl database cannot be opened.
inSkill(
procedure( ssOpenAdexl(libName cellName viewName "SSS")
let((obj dBoxReplace output ans)
obj=ddGetObj(libName cellName viewName "data.sdb" nil "r")
if(ddIsId(obj) ; == nil
then
importSkillVar( hicQuestionDialog )
ans = hiDisplayAppDBox(?name gensym('dBoxReplace)
?dboxBanner sprintf(nil "Replace %s %s?" cellName viewName)
?dboxText sprintf(nil "Do you you want to update the following ADEXL cellview: \nLibrary: %s\nCell Name: %s\nCell View: %s\n\nYes: The Adexl setup will be updated but simulation history will remain.\n No: The current Adexl cellview will not be changed." libName cellName viewName)
?dialogType hicQuestionDialog
?dialogStyle 'modal
?buttonLayout 'YesNo)
case(ans
((nil) dbClose(obj)
nil)
((t) dbClose(obj)
output=ssOpenAdexlDatabase(libName cellName viewName)))
axlRemoveAll(car(output)) ; Removes all elements except history from the existing database.
else
;dbClose(obj)
; Create a new object since one does not exist
obj=ddGetObj(libName cellName viewName "data.sdb" nil "w")
;dbClose(obj)
ssOpenAdexlDatabase(libName cellName viewName)
); if
) ; let
) ; procedure
) ;inSkill

I am using ic6.1.7 isr12