X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fntrace.lisp;h=ec902337cfebdb52996517a319a03910d7fec42a;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=1d74e47a788dbc6c8010dcb97dede65c7f95fe24;hpb=2fdd5c9276ba68458e1186c8ae3b7b5a42729a6f;p=sbcl.git

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index 1d74e47..ec90233 100644
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -660,7 +660,7 @@ are evaluated in the null environment."
       ((not fun)
        ;; Someone has FMAKUNBOUND it.
        (let ((table *traced-funs*))
-         (with-locked-hash-table (table)
+         (with-locked-system-table (table)
            (maphash (lambda (fun info)
                       (when (equal function-or-name (trace-info-what info))
                         (remhash fun table)))