Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -N -r1.114.2.22 -r1.114.2.23
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	17 Nov 2020 12:02:20 -0000	1.114.2.22
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	20 Nov 2020 11:53:19 -0000	1.114.2.23
@@ -815,7 +815,6 @@
             ns_log notice "### blueprint_reloading: before $before cmds:\n[join $cmds \;\n]"
             
             ns_eval [join $cmds \;]
-
             #
             # The current thread has still the old blueprint. If we
             # would modfiy the naviserver sources, it would be simple
@@ -829,9 +828,19 @@
             # this on the next reload in the log file.
             #
             ns_job queue ns_eval_q:[ns_info server] [subst -nocommands {
-                set after [list epoch [ns_ictl epoch] size [string length [ns_ictl get]]]
+                #
+                # Warning: Avoid dollar-substitution here, unless
+                # wanted at job registration time.
+                #
+                set blueprint [ns_ictl get]
+                set after [list epoch [ns_ictl epoch] size [string length [set blueprint]]]
                 set diff [expr {[dict get [set after] size] - [dict get {$before} size]}]
                 ns_log notice "### blueprint_reloading: after [set after] diff [set diff]"
+                if {0 && [set diff] != 0} {
+                    set F [open /tmp/__blueprint.[clock seconds] w]
+                    puts [set F] [set blueprint]
+                    close [set F]
+                }
             }]
         }
     }