Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.93.2.52 -r1.93.2.53
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	12 Sep 2022 12:51:37 -0000	1.93.2.52
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Nov 2022 17:35:46 -0000	1.93.2.53
@@ -636,7 +636,7 @@
           # the object to the base class and try again.
           #
           if {[lindex $cmd 1] eq "destroy"} {
-            ns_log error "... forcing object destroy without application level destuctors"
+            ns_log error "... forcing object destroy without application level destructors"
             if {[$obj isclass]} {
               $obj class ::xotcl::Class; $obj destroy
             } else {