diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index 608c2b007..1076ed0d8 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -71,7 +71,7 @@
          (process pid) (:object :object) :void
          "HANDLE *ph = (HANDLE*)ecl_foreign_data_pointer_safe(#1);
          int ret = TerminateProcess(*ph, -1);
-         if (ret == 0) FEerror(\"Cannot terminate the process ~A\", 1, #0);")
+         if (ret == 0) FEwin32_error(\"Cannot terminate the process ~A\", 1, #0);")
         #-windows
         (unless (zerop (si:killpid pid (if force +sigkill+ +sigterm+)))
           (error "Cannot terminate the process ~A" process))))))