Error with html-helper-mode and XEmacs 21.4.10?

Hi - I'm using XEmacs 21.4.10 along with a copy of html-helper-mode.el - 3.0.4jolly, I believe. I've been using this to (among other things) font-lock Javascript embedded in HTML, and haven't had any problems for a while - until I upgraded all my packages to the latest, including experimentals. Now I'm getting a warning popping up whenever I edit anything within the <script> tags in HTML: (1) (warning/warning) Error caught in `font-lock-pre-idle-hook': (wrong-type-argument stringp nil) The lisp backtrace is listed below the rest of this email. I'm able to work just fine in a straight Javascript file, or in the HTML sections of an HTML file, and it has this error in embedded Javascript whether mmm-mode is running or not. Any suggestions? At the very least, I'd like to be able to kill the warning message - it fontifys the file just fine when it initially opens it, and that's good enough for me. Thanks! Andrew Bayer abayer(a)cisco.com (Lisp backtrace:) # bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error) looking-at(nil) # (unwind-protect ...) # bind (rung-pos next-rung-pos last-put-in-sws-pos rung-is-marked simple-ws-beg cmt-skip-pos) c-backward-sws() # (unwind-protect ...) # bind (limit) c-font-lock-complex-decl-prepare(64) # bind (highlights matcher keyword nkeywords iter old-progress progress bufname keywords case-fold-search loudly loudvar end start) font-lock-fontify-keywords-region(62 64 nil) # (unwind-protect ...) # bind (modified buffer-undo-list inhibit-read-only old-syntax-table buffer-file-name buffer-file-truename loudly end beg) font-lock-default-fontify-region(62 64 nil) # bind (reg) #<compiled-function (reg) "...(26)" [mmm-current-submode mmm-current-overlay func mode reg mmm-set-current-submode mmm-set-local-variables nil mmm-save-changed-local-variables] 4>((62 64)) mapcar(#<compiled-function (reg) "...(26)" [mmm-current-submode mmm-current-overlay func mode reg mmm-set-current-submode mmm-set-local-variables nil mmm-save-changed-local-variables] 4> ((62 64))) # bind (func) # (unwind-protect ...) # bind (regions mode) mmm-fontify-region-list(javascript-mode ((62 64))) # bind (elt) #<compiled-function (elt) "...(13)" [elt mmm-font-lock-mode mmm-fontify-region-list] 3>((javascript-mode (62 64))) mapcar(#<compiled-function (elt) "...(13)" [elt mmm-font-lock-mode mmm-fontify-region-list] 3> ((javascript-mode (62 64)))) # bind (font-lock-beginning-of-syntax-function loudly stop start) mmm-fontify-region(62 64 nil) # bind (loudly end beg) font-lock-fontify-region(62 64) # bind (val end beg) #<compiled-function (beg end val) "...(5)" [end beg font-lock-fontify-region] 3>(62 64 t) map-range-table(#<compiled-function (beg end val) "...(5)" [end beg font-lock-fontify-region] 3> #s(range-table data ((62 64) t))) # bind (zmacs-region-stays) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # bind (dummy buffer) #<compiled-function (buffer dummy) "...(49)" [font-lock-pending-buffer-table zmacs-region-stays font-lock-range-table buffer remhash buffer-live-p clear-range-table map-extents #<compiled-function ... "...(32)" ... 5> nil font-lock-pending t put-text-property map-range-table #<compiled-function ... "...(5)" ... 3>] 9>(#<buffer "create_acl_type_verify.html"> t) maphash(#<compiled-function (buffer dummy) "...(49)" [font-lock-pending-buffer-table zmacs-region-stays font-lock-range-table buffer remhash buffer-live-p clear-range-table map-extents #<compiled-function ... "...(32)" ... 5> nil font-lock-pending t put-text-property map-range-table #<compiled-function ... "...(5)" ... 3>] 9> #<hash-table size 0/29 weakness key 0x1bf0>) # (unwind-protect ...) # bind (match-data) font-lock-fontify-pending-extents() byte-code("..." [font-lock-pending-buffer-table hash-table-count 0 font-lock-fontify-pending-extents] 2) # (condition-case ... . ((error (warn "Error caught in `font-lock-pre-idle-hook': %s" font-lock-error)))) font-lock-pre-idle-hook() # (condition-case ... . error) # (condition-case ... . error) # (catch top-level ...)