Index: openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl,v
diff -u -r1.28.2.5 -r1.28.2.6
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	1 Feb 2021 10:54:23 -0000	1.28.2.5
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	2 Aug 2021 21:26:55 -0000	1.28.2.6
@@ -187,8 +187,7 @@
         regsub -all -- {<[^<]*>} $text_to_spell_check "" text_to_spell_check
     }
 
-    set tmpfile [ns_mktemp "[ad_tmpdir]/webspellXXXXXX"]
-    set f [open $tmpfile w]
+    set f [file tempfile tmpfile [ad_tmpdir]/webspell-XXXXXX]
     puts $f $text_to_spell_check
     close $f
 
@@ -198,12 +197,10 @@
     set suffix [expr {$language ne "" ? "-$language" : ""}]
     set dictionaryfile [file join [acs_package_root_dir acs-templating] resources forms webspell-local-dict$suffix]
 
-    # The webspell wrapper is necessary because ispell requires
-    # the HOME environment set, and setting env(HOME) doesn't appear
-    # to work from AOLserver.
+    # The webspell wrapper is used to achieve independence from 
+    # nsd's env(HOME).
 
     set spelling_wrapper [file join $::acs::rootdir bin webspell]
-
     if {![file executable $spelling_wrapper]} {
         #
         # In case no_abort is given we just return the error